Section Q Extracodes 1300 - 1777 



This section contains a print-out of the Atlas Extracode programs 
from 1200 upwards in Intermediate Input. These are, apart from 
residual errors and amendments which may from time to time prove 
desirable, in the form in which they will be loaded into the 
London and Harwell Fixed Stores. They are not an exact print- 
out of what is loaded in the Fixed Store of MUSE. Errors were 
found and improvement devised in a number of the extracodes in 
MUSE after they had been loaded, and the necessary changes were 
made making as few changes to the ''hairbrushes" as possible. 
In some cases this involved inserting additional jump instructions. 
For the London and Harwell machines the instructions have to some 
extent been re-ordered to reduce the number of jumps and generally 
to tidy up the routines. At some date it may be possible to change 
the MUSE Fixed Store to render at least the arithmetic extracode 
part identical in all machines. However, the basic arithmetic is 
the same in all the computers. 

Sub-section 9,1 contains a description of the linking sytem for 
the functional extracode subroutines. This has been written in ABL, 
A description giving further information about the methods of the 
extracodes, particularly the functional ones, will be issued later 
in the volume containing the routine specifications. 
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9-1 A 
9* 1 The Interlinking of the Functional Extracodes 

The routines for implementing the following extracodes are all 

interconnected;- 



1400 


ca' 


= log S! 


1402 


ca' 


= exp sj 


1410 


ca' 


= sq.rt. s: 


1411 


am' 


= arg s: 


1412 


am 


= mod. si 


1413 


ca' 


= s cos s*, s sin s* 


1700 


am' 


ss log S 


1701 


am' 


= log aq 


1702 


am' 


ss exp s 


1703 


am' 


a= exp aq 


1710 


am' 


= sq.rt. s 


1711 


am 1 


ss sq.rt. aq 


1712 


am' 


= sq.rt. <aq +s ) 


1713 


am' 


ss am 


1720 


am' 


ss arcsin s 


1721 


am' 


= arcsin aq 


1722 


am' 


ss arccos s 


1723 


am' 


ss arccos aq 


1724 


am' 


= arctan s 


1725 


am 


ss arctan aq 


1726 


am 


=s arctan (aq/s) 


1730 


am 


= sin s 


1731 


am 


ss sin aq 


1732 


am 


ss cos s 


1733 


am 


= cos aq 
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g,I continued 9.1 /2 

These extracodes use five basic subroutines, namely :- 

1. Square Root 

2. Arctan, arccot 

3. Log 

4. Exp 

5« sin, cos 

In the cases of 2 and 5 the required function is indicated by njeans 
of markers in various B-lines. 

AH these subroutines are closed, i.e. exit is by means of a link- 
setting. Links are carried in B97. 

Thus a simple exit is 121 I2& 97 

For a simple extracode which only requires the use of a single, 
subroutine, for example, 1720 to 1725, this exit will be to a 'dummy 
exit' instruction 521 O o o„ In other cases, however, where 
operations are required afterwards, the exit will be to other routines. 
For example, 1713 (am ) requires first that log am be formed, then the 
result multiplied by s, and finally the exponential of this product fprinprt . 
In such a case, to save instructions to reset links, a system is used, 
whereby a single setting of B97 will normally cause the correct exit 
through all relevant routines. 

The following is an outline of the complete system (in ABL nptatfon). 
The entry points for all the extracodes are indicated, and all the link- 
setting and link- implementing instructions are shown. Also, an indieatiqn 
is given of the formulas used for the extracodes which call for more than 
one subroutine. 

These routines are not listed in the order in which ^they occur in the 
storey they are listed in an order which seems logical in order to einpguhd 
the system of interlinking. Since the labelling system used J-S sequential 
throughout the extracodes it is easy to discover the absolute position of 
each group of instructions. 

In the annotations, the following notation is sometimes used for 
convenience, in addition to the standard Atlas notation; 

x and y for s and s* (i.e. the real and imaginary parts of s:) 
..)■■■. u and v for c(ba) and c(ba+-I) (i.e. the real and imaginary parts of 

! the complex accumulator Ca. ) 
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9.1 continued 



9. 1 /3 



JUMP TABLES 



121 
121 
121 
121 

121 

324 
121 

324 

121 

334 

121 
121 
121 

324 

121 

324 

121 

324 

121 
121 
324 

121 

324 

121 



126 
126 
126 

126 
126 

126 



126 

o 

126 

o 

126 

126 

126 

o 

126 

o 



12 S 



o 

126 

126 
o 



126 



o 

126 



o 
o 



o 
o 
o 



A670 1400 

A469 1402 

A625 1410 

o. IA662 1411 

O. IA626 14.12 

*■ 

o. 1A469 1413 



119 

o A587 

119 o 

o A364 

119 o 

o o. 1A629 

o o. 1A627 

o A561 

119 o 

o A678 

119 o 

o 0.7A678 

119 o 

o A650 

o o. IA663 

119 o 

o o. 1A544 

119 o 

o A544 



1700 
1701 
1702 

1223 

171 
1711 
1712 



1233. 
1720 

1721 
1722 
1723 
1724 
1725 
1726 
1230 

I2M 
1732 



ca 
ca 
ca 

am 
am 
ca 

am 

am 
am 
am 
am 
am 
am 
am 
am 
am 
am 
am 
am 
am 
am 
am 
am 
am 
am 



log s: u = log/(x 2 +y z ) , v = arctan <y/x) 
exp s: u = exp x cos y, v = exp x sin y 
sq.rt.s: u ^<K/<x 3 + y 2 )+x)), v s y/gu 



= arg s: am' = arctan (y/x) 
= mod s; am' =^{x 2 +y 2 ) 

= 3 cos s*, s sin s* 

= log s Set aq' = s 

= log aq. 

= exp s Set aq' = s 

= exp aq 

==/s Set aq' = s 

=/aq 



" /t 2 2, 



= am" am' » exp (s log am) 

= arcsin s Set aq' = s 

= arcsin aq am* = arctan (s//<I-a?)) 

- arccos s Set aq* = s 

2 

= arccos aq am' = arccot (s//(I-x )) 

v' 
= arctan s Set aq' = s 

= arctan aq 

= arctan, <aq/s) 

= sin s Set aq' - s 

= sin aq 

= cos s Set aq* = s 

= cos aq 



ROUTINES 
625) 121 07 o -3A640 (1410) Set link to exit to A640 

626) - (1412) set s* in A to form (s a +s* 2 ) in A 

627) (1712) Form (a 2 +s 2 ) in A 

629) 210 97 126 .-3A669 (1710/1) Set link to exit to A669 if not already set 

630) 

63D SQUARE ROOT 

Form / a in A 

121 126 97 3 Exit to D97+3 

30.8.63 



9.1 /4 
9.1 continued 

640) ------------ (1410 continued) 

Add x, multiply by 1/2 

121 97 -3A643 Set link 

121 126 A631 Jump to form/(|(/<x +y )+x>), exit to A643 

v 1/ 
643) - 

_______--._-_ store as u, form y/2u, store as v 

756 132 95 EXIT from I4IO 

6 5 0) (I724/5> 

121 96 Set marker for arc TAN 

131 97 A669 Set link to exit to A669 

653) --- 

. ARCTAN/COT 

_____________ Form arctan/cot a in A 

121 126 97 O EXIT 

652) 334 119 I (1411) Set s* in a to form s*/s 

663) 2IO 97 126 A669 <I720) Set link to exit to A669 if not already s&% 

-_--_______- Form am/s 

121 126 A652 Jump to form arctan 

669) 521 EXIT 

670} 121 97 A6Sl <I400) Set link 

121 126 A626 Jump to form/tx^+y 2 ), exit to 3A681 - A083 

672) 235 126 A676 (1720, I, 2, 3 continued) Jump if/fa-x ) ? 

-__„__-__.__- If as I, jump direct to arctan 
121 126 A652 . exit to A569 

676) 

_ _ - (1720, I, 2, 3 continued) if /(I-x )? 0, 

2 v 

______-_-__- form x/ /(I-x ) 

121 126 A652 Then jump to form arctan. Exit to AO09 
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9.1 /5 

9„I continued 

678) (I7Z0, I, 2, 3) 

„ _ 2 

•"--- Form x-x 

121 97 126 A66g-(*+l) Set 097 - A669, preserving marker from bJ26 

165 96 97 °-2 Set marker for arcsin/arccos 

236 126 A630 Jump to form/(I-x 2 ) if I-x 3 > 0. Exit to 

v - 

3a669=a672 

Error exit if I-x < i.e. x > I 

68i) 35^ *aa I (1300 continued) Store arctan (y/x) as v 

334 O 4J7 Fecover/£x 3 +y a ) 

121 126 o A589 Jump to form logytf+y 2 ). Exit to A414 

683) 356 o 4J7 (1400 continued) Store /x +y 2 ) 

121 I2o A062 Jump to forra arctan y/x. Exit to A68l 

4 I 4> 750 122 O o (End of 1400) Store log Ax +y ) as u. EJfJf 

587) 121 97 A537-A414+A681 (1700/1) Set link to exit to A537 

588) Standardize 

589) . LQG 

~~___ ___ Form log a in A 

121 126 97 A414-A681 EXIT 

537 > 521 o 00 exit 

561) 121 97 O A563-A414+A681 (1713) Set link 

235 126 A588 Jump to form log am if a f 0, exit to Af 63 

„_ -.-_ _. If a = 0, prepare to set am* = or EO 

---____.„„__ depending on whether s > or <0 

121 126 A575 Jump to complete, exit to A537 

563) 342 119 o (1713 continued) Form s x log am 

564) 121 97 A563-A414+A681 (1702, 3 join) Set link to exit to A537 

565) 

EXP 

- _ _ „ _ _ Form exp a in A 

575) 

(tail) set EO if out of range 

121 126 97 A537-A563+A4X4-A68X Exit 
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9.1 /6 
9«I continued 

469) 324 119 o (1402, 1413) Set x in Am 

121 97 O A471-A537+A563-A414+A681 Set link 

211 126 126 A565 Jump if 1402 to form exp x. Exit to A471 

47D 35 6 2J7 (Here directly with x in Am if 1413? exp x if J4Q2)Stoi 

324 ° "9 * S»t s* in Am 

121 126 A545 Jump to form cos s*. Exit to A584 

544) 121 97 126 -<*+i)-A584+A47i+a563-A4I4+a68i 

Set link to exit to A537, Preserve marker in 1|I26 

545) SIN/COS 

Form sijJ a i n a if b97 odd, cos a if even 

121 126 97 A584-A471+A537-A563+A414-A681 Exit 

584) 362 O 2J7 (1402, 13 continued) Multiply by x (1413) or 

exp x (1402) 

356 122 GO Store as u 

324 O 119 1 Bring out y 

121 97 o 2.i*-A584+A47i-A537+A563-A4i4+A68i set link to exit to 2* 

121 126 A545 Jump to form sin y, exit to I* 

362 o o 2J7 Multiply by x (1413) or exp x (1402) 

756 122 I Store as v and exit 
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0.2 the 1200 Extracodes 
<0)=5I2*4 



211, 
211, 



126, 124, 
126, 124, 



+0 

96) *4 

121, 126, 



165 
215 
521 
iG) 102 
217 
214 
17)501 

121 

102 
217 
214 
521 
101 
211 

521 
124 
227 
224 
211 
521 
97> 521 
121 



<D 
2(1) 

O 
O 
(4> 

o 

*77 


0, 
-0*4 

(97) 
<97> 
122, 127, -0,4 



+0 
91. 



/ 
/ 


/ 
98, 



121, 1, 

122, 119, 
119, 127, 
126, 119, 
126, 119, 



+0 



/ 




<i6) 



126, 0, 

119, 127, -0.4 

(I?) 



126, 119, 
126, 119, 
0, 
91, 



o, 
o, 



121, 91, 

122, 119, 



(17) 


6*6 

o 
o 

0.5 



126, o, 

126, 126, 2.3 

126, 126, 1.3 

121, 126, O 

122, 119, 
0, 

o, 



o, 
126, 



77) 



o 
o 
0.1(34) 

121, 126, O, (34) 

124, 126, o, 0.5 

237, 126, 126, 2.3 

234, 126, 126, 1,3 

211, 121, 126, 

521, 122, 119, 

521, O, O, 

*77 / *o«7y 

*GGOG\ 7 / 7,7 

54> i +° / 7-7 „ M 
* 00007777 / * 00777777 

$21, I26, O, (50) 



9.2/1 

1 1200 ba ! =n if AO set, clear A0„ Jump when Ace, free 

1 1201 ba'=n if AO not set, clear AO, Ditto 

(Floating-point zero 

I 1204 ba'=no« of identical chars, from m.s, end of g and 3 

1 1206 ba'=n if m.s. char, of g=0, Extract m.s. ->hw s 

|)Set ba'=n if = 0, otherwise 'set BO* Exit 

I) 

|<I2l6) Subtract N From BII9, i.e. bllg'^bm 

I) Jump to exit if bm < 

I) 

[Otherwise set ba=N and exit 

1 1216 ba'=n if bra > 

1 12 17 ba'=n if bm < 0. blig^bm 

I) Jump to set ba=N and exit if bm< 

I) 

lOtherwise exit 

!I223 ba'=n if Bcarry = I, Extract V6 

|)Set ba ; -~r. if is. digit - I. Exit 

1 1225 ba'=n if bt>0. Add 0,5 to BI26 

1 1227 ba'=n if bt < O. Jump 3 or 4 if bt < * 

I Jump 2 or 3 if bt=0 

I Set bI2I=0 if 1227 

I Set ba'=n if < (1227), >0 (1226). Exit 

|(I2l6 and 1226 if bt < 0), Exit 

j 1234 c'=c+2 if am approx = s 

I 1235 c'=c+2 if am not approx=s 

I123S ba'=n if am>0. Add 0,5 to BI26 

j 1237 ba'=n if am<0. Jump 3 or 4 if am < 

I Jump 2 or 3 if am=0 

[Set b I2I=0 if 1237 

I Set ba'=n if < 0(1237) >0(I236). Exit 

I (1236 if am < O) Exit 

1 Character masks 



|2I, 
2,03, 
203, 
521, 0, 

456, 0, 



126, o, 
126, 119, 

125, 



357. o, 



321, 

34°> 
2i7> 



334. o, 

444. 0, 



521, 
125, 
125, 



119, 

o, 

o, 

o, 

o, 

0, 

124, 

o, 
o, 

122, 119, 



124, 

o, 

121, 



98, 

99. 



(5D 
(52) 
0.1(52) 



(99) 

1(99) 

♦014 

(o) 

o 

(99> 
K99) 
o 


o 



165, 9*. 
127, 98,- 



164. 98, 

137, 99, 

124, 99. 

101, 92, 

164, 98, 

521, 122, 91, 
+0 / 



0, 

o, 

987.7 

o, *777777 

7.7 

* 777777 

o 

6*6 

0.1 

o 

o 



99. 

0, 

119, 

o s 

92, 



1 1250 ba'=char. s in bits 0.5 

1 125 1 s'=char. in bits 0.5 of ba 

1 1252 Unpack a chars. Jump if n f 0, reduce n by I 
[ 1253 Pack n chars. Ditto 

[Exit if n = 

1 1255 ba' = n if m f O or I's. Store m 

{Store 1 

1 Set exponent = 12 

(Standardize, i.e. shift up 39 or more if m = O or all i's 

(Set bI21=0 if shifted 39 or more places 

I Recover m 

1 Recover 1 

(Set ba'=n if shifted 39 or more otherwise 'set BO'Exit 

j I265g '=(64)g-fn,ba'= overflow. Shift as| 

[Shift l.s.'j 

lExtract formertopchar.frcmB98(overflow) 

[Remove it from bottom of B98 

[Add former top char, of B99 into bottom of B98 

[Remove it from bottom of B99 

I Add in n to B99 

I) Add in I at bottom of B98 if adding in n 

j ) set Bcarry 

I Exit putting overflow in ba. 

I Fixed point zero 30.8,63 
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9.2/2 



4) 



DIM 

Ii6 

101 

127 

116 

215 
$21 
121 
121 

106 

215 
121 

I06 
121 
165 
215 

125 
201 
121 
521 
5 o) 101 
210 
125 
163 
211 
125 
135 

565 

101 

165 
124 
124 
214 
123 
125 
202 
106 
107 
516 

52) 113 
124 

101 

165 

113 
124 

124 

101 
101 

104 

125 
125 
125 
167 

211 

107 
105 
124 

200 

113 

200 

121 

203 
123 



91, 
91, 

9i» 

9i» 

91. 
121, 

122, 

92, 
91, 

9i» 
126, 

9i» 
9i. 
92, 

93. 
126, 

9i , 

126, 

92, 

122, 

91, 

126, 

91, 

119, 

126, 

91 > 

QT, 

122, 

122, 

9 1 , 

92, 

92, 

92, 

126, 

93, 

9i. 

126, 

9i , 
91, 

9i , 

122, 

121, 

91 , 

93. 

122, 

93, 
93, 
92, 

94, 
126, 

94, 

94» 

94. 
91, 

126, 

94, 
94, 
92, 
126, 

94, 
93, 

94, 
126, 

95. 



0, 
0, 
o, 
0, 
0, 

91 > 
±I9< 

0, 

98, 

119, 

9i, 

99, 
119, 

o, 

9i, 

93, 

o, 
92, 

o, 

92, 

119, 

119, 

o, 

119, 

119, 

o, 

o, 

9i. 

o, 
o, 

119, 

92, 

92, 

92, 

92, 

o, 

93, 
119, 

92, 

119, 

o, 

o, 

o, 

91, 

o, 

93, 

93, 

o, 
91, 

93, 

0, 

o, 

o, 

o, 

126, 

93, 
92, 

o, 

93, 
91, 

91, 

o, 

119, 

93, 



digits of s same 
in all for k=2 



1,0 |(I200) 

6*6 I Reverse AO setting for 1200 

6*6 |(l20ljoins) Extract v6 

1,0 [Mask out AO digit 

6*6 I Clear AO 

O [Set bI2I=0 if AO digit = (1200), =1(1201) 

(Set ba Or bO=n. Exit 

-7 I ( 1204) Set count 

O ICopy m.s„ I of g to B91 

O I Non-equivalent with m.s. ^ of s 

4(0) Uump if different 

O I If same, copy l.s, § of g to B91 

0,4 I Non-equivalent with l.s, J of s 

-3 I Set counter 

*77 lExtract m.s, character 

4(0) I Jump if non-zero 

I Shift round 
-3(0) iCycle back reducing counter 

1 I Set b92 =1 when all 8 chars, same 
7 I Exit setting up ba 
O I (1250) Extract s 
2(0) Uump if k=I or 3 
O I Shift round if k=0 or 2 
ibII9*=4s-s 
3(0) Uump if even, i.e. last 2 
O I) Shift twice more, i.e. 3 
0, }) and 2 in all for k=I 

7.7 lExtract bottom char, which is required one and exit 

(99) 1(1251) Store ba 

(99) I Set into B91 

0.3 lExtract k 

O |)Shift up twice and subtract 1,4 

-1.4 Di.e. b92=0, -0,4, -1. 0,-1.4, for k=3,2,I,0 

4(0) Uump if = o, i.e. k=3 (no shifting needed) 

0.4 |Set b93=-(b92+0.4)=0, 0.4,1.0, for k=2,I,0 

O I Shift round ba ) shift 1,2,3 

-1(0) JCycle, counting in b93 ) for k=0,I,2 

O (Non-equivalent with s 

1.4(77) iMask out required character position 

O [Non-equivalent back into s, i.e. plant new char. Exit 

(99) 1(1252,3) Store ba 

0,4 I Step on BI2I to point at Ba* 

(99) I Set ba in B9I 

0,3 lExtract char, position of start, =k 

(99) I Store ba* 

O |) 

-1.4 Db93 , =-I 4, -1. 0,-0.4,0 as k=0,I,2,3 

(99) I Set ba* in B92 

O I Set c(ba) in B94 

♦40053124 I Modified jump to shift 0,1,2,3 as k=0,I,2,3 

O : 

O 



0.1 

(95) 

i.4<54> 


0.4 

4(0) 
o 

-1.4 



-5<o) 

1.4 



I Force marker at bottom of B91 

Uump if 1252 

I (1253 continued) Remove characters to be replaced 

(Shift required char, posn, to bottom add c(ba*) 

I Step on ba* 

Uump if b93 f (not last char, of 

I If end of \ word, store b94 back in C(ba) 

I step on ba and reset count, 

I and clear B94 for next chars, 

(Cycle, counting characters go 8 63 

Ib95»»-(b93+i.4> 



I word), add 



0.4. 
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314, 


136, 


95, 


(97> 


101, 


96, 


95, 


2(54) 


117, 


96, 


9i, 





104, 


136, 


95. 


*40053i3 


125, 


94, 


0, 





125, 


94, 


0, 





125, 


94, 


0, 





516, 


94, 


9?» 





300, 


136, 


93, 


3(o) 


200, 


93, 


9i, 


-1.4 


1 01, 


94, 


91, 





95) 125, 


94, 


0, 





165, 


95, 


94, 


7.7 


113 » 


95, 


92, 





124, 


92, 


0, 


0,4 


203, 


136, 


119, 


-7(o> 


521, 


0, 


0, 







+0 


/ 





34> 356, 


0, 


0, 


(99) 


234. 


126, 


126, 


5.o 


32i, 


0, 


119, 





374. 


0, 


0, 


(99) 


366, 


0, 


0, 


(0) 


32i, 


132, 


0, 





237, 


126, 


126, 


0.1 


310, 


126, 


126, 


2(0) 


I34, 


137, 


0, 


1.0 


734. 


0, 


0, 


(99) 



i(I253 continued) Jump to exit if last char, fills | word 

[Extract mask 

iClear required char, positions in c(ba) 

•Modified jump to shift 3,2 or I as final k=0,I or 2 



(Plant into c(ba) and exit 

I (1252) Jump if b93=*o (not last char, of | word), subtr.l 

I if end of J word, step on ba and reset counter 

I Extract new c(ba) 

I (Entry) Shift char. to foot of B94 

[Extract character 

[Store in c(ba*) 

[ Step on ba* 

[Cycle, counting characters 

I Exit 

1(1234,5) Store am 
[Jump 6 places if am=0 
(Subtract s 
(Divide by 'am' 
I Take modulus 
(Subtract C(ba) 
(Add 0.1 to control if <0 
I Jump if BI26 odd, i.e. approx 
(Add I to BI27 otherwise 
Recover am and exit 



= for 1235, not for 1234 
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9.3 The I3°0 Extracodes 



9-3/1 



<o)=768*4 






5> 334 


, 0, 


119, 





131 


, 126 


, 0, 


(1) 


120 


, 119 


, 0, 





121 


, 126 


, 0, 


<3> 


215 


, 126 


, 119, 


o.5<3> 


376 


, 0, 


0, 


<5> 







/ 










/ 










/ 










/ 





120 


, 119 


0, 





121 


, 126 


0, 


0.1(3) 


215 


, 126 


119, 


0.4(3) 


376 


, 0, 


0, 


<5> 


16) 335 


, 0, 


0, 


(99) 


: 352 


r 0, 


0, 


1(99) 


18) 210 


, 126, 


95» 


2(0) 


365 


, 0, 


0, 


(0) 


357 


, 0, 


0, 


(99) 


216 


126, 


119, 


2(0) 


112 


, 0, 


0, 


0.4(99) 


334 


0, 


0, 


2(99) 


' 344 


, 0, 


0, 


3(99> 


501 


122, 


0, 


0.4(99) 


95> 


"=06404 / 





1) 356 


0, 


0, 


(99> 


217 


124, 


124, 





300 


0, 


0, 


(95> 


357 


0, 


0, 


1(99) 


311 


0, 


0, 


(95) 


302 


0, 


0, 


(99) 


501 


122, 


0, 


i.4(99> 


130, 


119, 


0, 





215 


126, 


119, 


(40) 


120 


119, 


0, 





215. 


126, 


119, 


(42) 


i.20 


119, 


0, 





315. 


126, 


119, 


0.1(40) 


521 


0, 


0, 





H3: 


122, 


0, 


(99) 


lOIj 


91, 


119. 





147 


91 r 


0, 


(99) 


5*3, 


91, 


119, 





121, 


I26, 


0, 


(53) 


44) 3l6 , 


126, 


92, 


(97) 


94> 521, 


123, 


0, 





1 01, 


119, 


119, 





113. 


122, 


0, 


(99) 


106, 


119, 


0, 


(99) 


572 


119, 


0, 





121 


90, 


127, 





521. 


127, 


119, 





113 


122, 


0, 


(99> 


102 


119, 


127, 


-0.4 


106 


119, 


0, 


(99) 


107, 


119, 


127, 


-0.4 


526, 


122, 


119. 





521. 


0, 


0, 





72) 121 


92, 


119, 


24 


216 , 


126, 


92, 


(98) 


120 


119, 


0, 


-23.7 


121 


126, 


0, 


(46) 


1 01, 


119, 


119, 





113 


122, 


0, 


(99) 



1 1 300 ba f =int.pt,s, am'= frac.pt, s. Put s in A 

1 1301 ba' =int.pt. am, am* =f rac.pt. am. Jump 

1 1302 ba'=ba„n. Set bl^'rr-n 

1 1303 ba'=-ba,n 

1 1 3 04 ba'=int.pt(ba/n), b97'=rem. Jump if n^O 
I Cause DO interrupt if n=o 



1312 ba T =ba,n (24 bit integers) Set bll^'s-n 

13 13 ba'=-ba.n (ditto) 

13X4 ba'=int.pt,(ba/n), b97'=rem. (24 bit int.) Jump n#0 



Cause DO interrupt if n=0 

(1302,3,12,13 continued) Set am'=-n 

Multiply by ba 

(1304,14 rejoin) Jump if 1304,12,13 

Shift down if 1302,3,14 

Store 

Jump if ba and n are same sign 

Negate answer if opposite 

)Restore A 

) 

Set result in ba and exit 

Mantissa I/l6 , exponent 26 

(1300,1) Store 

ay'=o if ay<0 

Add number (m=I/l6, 

Store al=int.pt 

Subtract number off 

am*=frac.part. 

ba ' =int . part . Exi t 

1 34 Shift ba down n, (arithmetic, unrounded) . bII9'=-n 



e=26),ie. shift integer to bottom of 1, 
jthen standardize, i.e. shift up 
lone octal place, so octal fraction 
I clear . 



1341 Shift ba up n (arithmetic). Jurap if ny*o 

1342 Shift ba down n (circular). bII9'=-n 

1343 Shift ba up n (circular). Jump if n/O 



1344 Sbift *>&• down n (logical), blig'^-n 



1345 Shift ba up n (logical). Jump if njto 

(I340-5) Exit if ns=o 

1347 h'=h v ba. Store ba 

h 

v ba 

Store as h' and exit 

1353 ba' = posn of m.s, I bit of n. 

(Logical shift down) Jump if n>-24(i,e, -24<n<o) 

(Arith & log shift up, n> 24; log shift down, n<-24)Exit, ba=< 

1356 bt'=ba£h. Set h in M19 

1357 bt'sba^fn. Store ba 



h or n £ ba 

Set bt and exit 

1362 Fast S/R entry. Set b90's:c+I 

Set 0127 and exit. 

1364 ba'=(ba & not n)v(bm & n), bII9'=(ba^bm)& n 



Remove n from BIK), i.e. bII9'=bm 

£ba 

& n 

3* ba i.e. ba l =((baj£bm)& n)£ba = required result, exit 

137 1 bI2I=Ba, bl^'ssN+bm. Dummy B-type extracode. 



(1342,3 continued, n<o) Set b92=n+24 

Jump if -24 <n<0 

If n<-24, set bH9=;|n| and mark odd, 

and jump to reduce mod 24 
1326 bt'=ba & h. Set h in MI9 



1377 bt'sba & n Store ba 



3°. 8 .63 



9*3/3 



3> 121 

357 
113 
216 

hi 

113 

113 

103 

217 

113 
126 

113 
217 

345 
375 

356 

364 

IQI 
211 

120 

121 
163 
I63 

124 

46) 165 

215 

2l6 
211 
120 
131 
97) 163 
IO7 
100 
121 

41) 121 
2l6 
163 
107 
121 

40) 113 
101 
216 
121 
210 
2l6 
217 
163 

147 
121 

521 

42) 113 

101 

217 
122 
2l6 
93) 121 
53> *2I 
113 



119, 
119, 

95. 

O, 

0, 

119, 
126, 

119, 
119, 
o, 

122, 

97» 

126, 

97 » 

119, 

o, 

126, 

o, 

0, 

0, 

o, 

97. 

126, 

97. 

126, 

92, 
92, 

119, 
119, 

92, 

126, 

119, 

126, 

126, 

119, 

126, 

92, 

91, 

91, 

126, 

92, 

136 
119 
91, 
126 
122 
91, 
126 

92, 

126 
126 
126 
92, 
91, 
126 
122 
132 

9*. 

126 
119 
126 
126 
122 
122 



o, (99) 

0, o 

126, -<o)-i.4 

0, 2(99) 

0, 3<99> 

o, 0.4(99) 

119, 2(0) 

o, 0.4(99) 

o, *4 

o, (99) 

o, 1.4(99) 

0, 1.4(99) 

97» 3<o) 

o, 1.4(99) 

0, 0.1*4 

o, 1(99) 

95» < l6 > 

o, 1(99) 

0, (99> 

0, (99) 

o, (o) 

o, 0.4(99) 

119, (Io) 

0, 

o, (18) 

o, 

o, 

0, 31. 1 

92, 

119, -32 

92, -5(0) 

o, 24 

119, -1(0) 

119, 2(0) 

0, -23.7 

119, (45) 

o, 

92, 0.2*4005215 

0, (99) 

119, (45) 

92, (94) 

o, 

119, * 4005215 

92, (45> 

o, (99) 

0, (99) 

119, (41) 

119, 23,4 

126, (44) 

91, <44> 

92, 4(0) 
o, o 

92, 0,2*4005215 

119, (45) 

0, -O.I 

o, (99) 

o, (99) 

119, (72) 

o, 24 

119, (46) 

119 , <45> 

o, 0.1*4 

o, 3*6 



1300 Extracodes , Page 2 
(1376,7 continued) h or n 2s ba 
Set bt and exit 

(1302,3,4,12,13,14) Set mark in B95 
) Preserve A 
) 



) 

) 

) 



n| in store 



Store n 
Jump if n > 
Store -n 

BII9'=*4 if n<0 > ~° if n iL° 

Set exponent and top of mantissa for |n| 

Store ba 

b97'=~ba 

Jump if ba >0 

Store -ba, i.e. |bal in store 

bII9' odd if ba<0, -ve if ba and n are of different r 

Set exponent and top of mantissa for |ba| 

Jump if 1302,3,12,13 

(Here if division (1304,14)) Sot |ba| in L, clear M 

Divide by |n|. Result in L, remainder in M 

Store remainder 

Shift up quotient 

Set b97=remainder 

Jump to adjust answer if ba>0 

Set remainder -ve if ba <0 

Jump to adjust answer 

(Reduction loop for 1342,3) If M?So, set b92=I&M 

b92'=oM 

Set bII9=m 

bXI9'=oM+m, i.e. have removed 24M 

(Enter here) Regard bug as 32M4.n1, Extract 32M 

Jump back if flf^Q 

If M now - 0, subtract 24 from in. 

Subtract a further 24 if etill +ve 

) 

)Set bug = (-24+I n| reduced) if n<0 

Jump to shift 

(Log, shift down,n>-24) Halve bg2 

Preserve ba where zeros needed 

Set zeros at foot of ba 

Jump to shift 

(Arith and logical shift up) Set bg2=ba-34 

Jump if n>o 

(ba<0) Halve n as mod for engineers test constants 

Set zeros at top of ba 

Jump to shift 

(1340,1,3,4)) Set bgi=ba 

) 
Jump if n>0 to shift up 
Set b92 =n+23.4 
Jump if logical shift down 

(Arithmetic shift down) Jump for logical shift if baj- 
(Arithmetic shift down, ba<0) Jump if n<-;24 
Halve bg2 as mod for eng. tests consts. 
•'or 1 ' ones to foot of ba 
Jump to shift 

(Arithmetic shift down ba<0, n<-24> Set ba s=-0,I and 
(I342,3>) Set bgi=ba 

) 
Jump if n<0 
(n>0) Subtract 24 

Jump to reduce mod 24 if not 0<n<24 
Jump to shift if 0<n<24 or -24<n<0 
(1353) Set ba digit 23=1. Interrupt if Ba=I26 
Inhibit interrupts 

30.8.63 



9.3/3 



43 > 



45) 



121, 


123, 


119, 





121, 


122, 


123, 





513, 


0, 


0, 


3*6 


125 


, 91, 


0, 





125' 


91, 


0, 





125, 


91, 


0, 





521, 


122, 


91, 





163, 


91, 


0, 





163, 


91, 


0, 





163, 


91, 


0, 





163, 


91. 


0, 





163, 


91, 


0, 





121, 


126, 


0, 


2(43) 


163, 


91, 


0, 





163, 


9i, 


0, 





163, 


9i, 


0, 





163, 


91, 


0, 





163, 


9i, 


0, 





121, 


126, 


0, 


i(43) 


163, 


91, 


0, 





163, 


91, 


0, 





163, 


91, 


0, 





163, 


91, 


0, 





163, 


91, 


0, 





121, 


126, 


0, 


<43> 


163, 


91, 


0, 





163, 


91, 


0, 





163, 


9i, 


0, 





163, 


91, 


0, 





163, 


9i, 


0, 





521, 


122, 


91, 






J 1300 Extracodes, Page 3 

I (1353 continued) n -> BI23 

IBI23 - > ba 

J De-inhibit interrupts and exit 

I (Shift table) 



iBxit 

I (Here for shift up one) Shift down one 

I (Two) down one 

I (Three) down one 

i (Four) down one 

I (Five) down one 

I (Six) Jump to shift up six and exit 

I (Seven) Shift down one 

I (Eight) down one 

I (Nine) down one 

I (Ten) down one 

I (Eleven) down one 

I (Twelve) Jump to shift up 12 and exit 

I (13) Shift down one 

I (14) down one 

I (15) down one 

I (16) down one 

I (17) down one 

i do) Jump to shift up IS and exit 

K19, i.e. down 5) Shift down one 

|(u.20, i.e.d,4) down one 

l(u,2I, l t e.d.3) down one 

l(u,22, i.e,d t 2) down one 

Ku.23, i.e.d.l) down one 

|(u,24, i.e.d.o) Set 091 in ba and exit 



30.8,63 



(o)= 

121, 

121 
324 



1^356 
756 

121 

: i2i 

121 
121 
121 

3*4 

352 

757 

121 
32 r 

321 
121 
121 

325 
356 
121 
203 
203 
203 
203 
203 
521 

>2Q3 
203 
521 

113 
121 

101 

217 
513 

24) 324 
33& 
324 

95> 75S 
342 
121 



3^4' 
356, 
324» 
75&> 
334 > 
362, 

35^ 

121, 

121, 
113, 

'346. 

101, 

121, 
121, 

347. 
121, 
121, 
121, 



1024*4 
126, 
o 

126, 
0, 
122, 
o, 

122, 
O 

126, 
126, 
I26, 
126, 
126, 

o, 
0, 
o, 
126, 

122, 

o, 

126, 

126, 

o, 

122, 

126, 

126, 

126, 

126, 

126, 

126, 

0, 

126, 

126, 

0, 

122, 
92, 

91, 

92 > 

92, 

o, 

122, 

o, 

122, 

0, 

126, 
( '■■ 

o 

O, 

122, 

O, 

122, 

O, 

O, 

126, 

I26, 

122, 

O, 

91, 

126, 

I2&, 

0, 

126, 

126, 

126, 



o, 

/ 

0, 

119, 

0, 

119, 

0, 

/ 

o, 
o, 
o, 
o, 

0, 

119, 

119, 

119, 

o, 

0, 

119, 

o, 

o, 

119, 

0, 

o, 

119, 

119, 
119, 

119, 
119, 

o, 

119, 

119, 

o, 

119, 

o, 

119, 

9i, 

119, 

119, 

o, 

119, 
0, 

119, 
o, 

/ 

/ 
o, 

119, 
o, 

119, 

o, 

119, 

o, 
o, 
o, 
o, 
o, 
o, 
o, 
0, 



0, 
0, 
o, 



(i/i6oa) 
o 

<2) 

O 

o 

I 
I 



(10/1600) 

0.1(11/1600) 

0.1(12/1600) 

0.1(2) 

(14) 

o 

1 

0.4 

(20) 

1 

1 

(21) 



o 

(25) 
(30) 

0,1(30) 
0.4(30) 
0.5(30) 

O 
0.4(34) 

0.5(34) 



O.4 

*03 
0.4 

*03i/7777 
o 

1 

1 


o 
o 

(47/1/00) 

o 


a 

O 
I 

I 

o 



(99) 
(62) 

(66) 

i(99> 

(99> 

i(99> 
(67) 

(41/1700) 

(0) 

(81/1700) 

0.1 (80/17 00) 

0.4(77/1700) 



1 1400 ca*=log s; 

1402 ca'=exp s% 

1403 ca'=conj s: ) 

)Trg.nsfor real part 
(I425 continued joins)) 

) Negate and transfer imag. part. Exit 



I410 ca' 



s: 



I4II am 




' =sq.rt, 

'=arg s: 

1 =mod s: 

'=s cos s: , s sin s* 

'=i/s: 

1415 Pseudo-Random Number. Set s in A 
Multiply by s*, double- length, non- standard! zed 
Store l.s.J in s or s*. Exit 
1420 ca'=ca+s: 
I42X ca'=ca-s: 
Subtract imaginary parts 
Jump to continue 

1424 ca'=s: 

1425 ca'=-s: ) 

) Negate and transfer real part 
Jump to negate and transfer imaginary part and exit 

1430 S(I)'=:S(I)+S(2) ) 

1431 jKl) '-£(2) ) Jump reducing bII9 by I 

1 432 s(l)'=am.s(2) ) if n^o 

1433 I<I) '=s(lT+am.£(2) ) 

Ixte. £< J > '=£(2) ) 

Exit if ns=o 

1436 am'=sum s (li),£(2i) )Ditto 

X.-37 a'=sum s(li).s(2i) ) 

Exit if n=0 

I4-,- 1 sx'=ba, sy'=I2. Store ba in l.s.| of s 

Set exponent s=i2 

Set ba in B91 

Propagate sign digit into m.s.f 

Store exponent and propagated sign digit in l.s.^ of s. Exil 

(I v 24)) 

) Transfer imaginary part 
) Transfer real part and exit 

) (Also end of I400; store am in c(ba) and exit) 
1452 m'=m.sx times 8 to(ya+ys-ba) , ya'=ba < s > 
Multiply m by s and jump to set oaponent 



34.56 s:'-ca ) 

) Transfer real part 
) 

) Transfer imaginary part and exit 
I462 ca'=ca.ss ) 

)Form product of roal parts 



Store 

Jump to continue 

I4S6 a'=C(s+bm+ba).C(s+bm) + a 



I.i67 am'=Polynomial sum. Store ba =no. of terms 



Store am, Set am =0 

Set count in B91 

Jump to polynomial loop 

1 473 m'=(xa/xs) times 8 to (ya-ys-ba) , ya'=ba (X) 



1474 C(ba')= quotient (am/s),am , = remainder (X). Clear 1 



1475 C(ba '^quotient (a/s) .am'sremainder (X). 



1476 C(ba')= quotient) ([am]/s),am'=remainder (X) 



1477 Remainder and Adjusted Integral Quotient after division 

30.8.63 



II400 Extrmjodes, Page 2 



S'v2 



141 



20) 



][> 



62) 



66 > 



30) 



31) 



32) 



334. 


o, 


£19. 


* 


362, 


0, 


119, 





356, 


0, 


0, 


(99) 


334. 


0, 


119. 


I 


362, 


0, 


119. 


I 


320, 


0, 


0, 


(99) 


356. 


0, 


0, 


1(99) 


325, 


0, 


119, 


I 


374. 
356. 


0, 


0, 


x<99> 


122, 


0, 


1 


324. 


0, 


119. 





374. 


0, 


0, 


1(99) 


756. 


122, 


0, 





324. 


122, 


0, 


1 


320, 


0, 


119, 


1 


356. 


122, 


0, 


1 


324, 


122, 


0, 





320, 


0, 


119. 





756, 


122, 


0, 





356. 


122, 


0, 


1 


324. 


122, 


0, 





321, 


0, 


119, 





756. 


122, 


0, 





334. 


122, 


0, 


1 


363. 


0, 


119, 


1 


320, 


0, 


0, 


(99) 


356. 


0, 


0, 


1(99) 


334. 


122, 


0, 





362, 


0, 


119, 


1, 


356. 


Q, 


0, 


(99) 


334. 


122, 


0, 


1 


362, 


0, 


119, 





320, 


0, 


0, 


<99> 


356. 


122, 


0, 


1 


334. 


0, 


0, 


1(99) 


756. 


122, 


0; 





356. 


0, 


0, 


(99) 


355. 


0, 


0, 


(0) 


356. 


0, 


0, 


2(99) 


324. 


o, 


119. 





342, 


122/ 


119, 





121, 


119, 


0, 





121 , 


126 , 


0, 


(68) 


121, 


92, 


126, 


-i.4-(o) 


113. 


122, 


0, 


(99) 


124, 


121, 


0, 


0.4 


101, 


9*. 


0, 


<99> 


216, 


126, 


92, 


(32) 


210, 


■S26-, 


92, 


<3D 


324. 


91 'r 


119, 





320, 


•122, 


119, 





3|6'. 


9±y, 


. -119' 





203., 


X26.>, 


119, 


^-3<o) 


^21, 


6<, 


0, 





324, 


91, 


119, 


OyJ 


32I-, 


122, 


119, 


■O'"- ■;.'•.,■ > 


356'. 


9* >; 


119, 





203, 


126, 


119, 


~3<o> 


521, 


0, 


0, 


;■;... - v 


356-, 


,*S'-> 


a, 


<99> 


2lfc, 


126, 


92, 


3(0) 


.121:, 


.126 , 


Q, 


<33^> 


3$&. 


91, 


119, 


'I 



(14x4) s 

s,s 

Store 

s* 

s*,s* 

Add s.s. 

Store 

Divide by (s.s + s*.s*) 

Store as imaginary part of result 

s 

Divide by (s.s + s*.s*> 

Store as real part of result. Exit 

(1420) 

Add real parts 

Store 

Add imaginary parts 

Store and exit 

(1421 continued) Store imaginary part of result 

I Subtract real parts 
I Store and exit 

{Negative product of imaginary parts 

I Add product of real parts 

[Store temporarily (=real part of result) 

I) 

I) 

|) Form sum of 'cross-products'. 

I) 

]■>. 

1) 

I Store as imaginary part of result 

1) 

I ) Extract and store real part and exit 

I (1466) Store am 

I Shift up 1 

I Store 

|C(S+bm) 

| times C(s+bm+foa) 

(Set bII9=0 

J Jump to add a 

1(1430,1,2,3) Set mark in b92 

I Store ba 

| Step on BI2I to point at Ba* 

I Set b9I=ba 

I Jump if 1432,3 

t| Jump' if- ■■-I43I ■"■'" ■•'■'•-- -'"."'i:.; ■ .'-'.• ;,' ;/«V;-/ I >..:.... '...-,.....-;. 

1 (1430 continued) sli 
;|+s2i ■- ■■■■■■ '- 1 .^' ■■■ ■'-'■• 
I Store in sli 
I Cycle, counting 

lEXit-i " :■:■■■■■■'•■■;■ '■■< - ':■.:.<-. .. p--;-;.;; 

i(i43I- continued) sll ;■ tr. 

<|~s2i - r- ■cn-ii; / -l ..- .<-;:.•;■.::■ '; 

;(Store in sli 

;|Cycle, counting 

HEXif ;/■' * ■.-,>.■-■.■■ .'-'-:■.. ' , 

1X1432,3 continued) Store am 
I Jump if 1432 into loop. 
IX1433 continued) Jump into loop 
■SIX1432 loop) Store in- igli • .:■' 



>^" 



362 

203 

756 

35^ 

33> 324 

362 
320 
203 

75^ 
34> £2i 
113 
124 
101 
216 
113 
102 
217 
101 

334 

356 
203 

521 

123 
104 
120 

334 
356 

201 

96) 521 

36) 3.16 
210 

SS 6 

324 
362 
320 
203 
521 

37) 356 

355 

356 
324 

68) 356 

355 
320 

356 
324 
300 

356 

355 
300 

310 

203 

521 

67) 362 
320 
203 
521 
324 
121 
211 

75> 356 
324 
121 



2) 



0, 

126, 
91, 
91, 

0, 
91, 

126, 

91, 
92, 
122, 

i2i, 
91, 

126, 
122, 

91, 

126, 

91, 

9i» 

126, 

o, 

92, 

119, 

91, 

91, 

119, 

126, 

o, 

o, 

126, 

0, 

122, 

91, 

o, 

126, 

0, 

o, 

0, 

0, 

122, 
91, 

o, 

o, 

0, 

o, 

o, 

o, 

o, 

o, 

0, 

o, 

126, 

0, 

0, 

119, 

126, 

o, 

o, 

97- 
126, 

o, 

o, 

126, 



o, 

119 

119 

119 

119 

o, 

119 

119 

119 

126 

o, 

o, 

0, 

92, 

0, 
o, 

9£> 

o, 

119, 

119, 

119, 

o, 

119, 

o, 

119, 

92, 

92, 

92, 

o, 

o, 

92, 

o, 

119, 

119, 

0, 

119, 

0, 

0, 

o, 

0, 

119, 
119, 

0, 

o, 

0, 

o, 

0, 

o, 

o, 

Q, 

o, 

o, 

119, 

0, 

o, 

91, 

91, 

o, 

119, 

o, 

126, 
0, 

119, 

o, 



(99) 

-3(0) 



I 



(99) 

o 

-4<o) 

o 

-i.4-<o) 

(99) 

0.4 

(99) 
(36) 

1(99) 

1(99) 

6<o) 

<99> 

o 



-2(0) 





(99 > 

o 





-2(0) 



(o) 

<37> 
(99) 
o 


(99) 
-4(0) 



(99) 
(0) 

2(99) 

o 

o 

1(99) 

(o) 

2(99) 

3<99> 

(99) 

1(99) 

4(99> 
(o) 

3 <99> 
4(99) 

<37> 



(99) 

o 

-2(o) 



#4003630 

(36/1500) 

2(99) 

1 

(8S/1500) 



9.4/3 
11400 Extx-acodos Pago 3 

(1432 continued) Multiply by ''am" 

Cycle, counting 

Store last element and exit 

(1432 loop) Store in sli 

(Enter here) s2i 

Multiply by ''as' r 

Add Sli 

Cycle, counting 

Store last element and exit 

(1434,6,7) Set mark in B92 

Store ba 

Step on BI2I to point at Ba* 

Set ba in B9I 

Jump if 1436,7. 

(1434 continued) Store ba* 

ba-ba* in B9I 

Jump if ba*>ba, i.e. if transfer backwards 

Set ba in B9I 

(loop) Extract element from s2 starting at highest adc 

Store in si 

Cycle, reducing modifier 

Exit 

(ba*>ba) Set b92=-(n-l) 

SET ba+(n~l) in BII9 

Set B9Is= ba+n-I-(ba-ba#),=ba*+n-l 

(loop) Extract element from s_2, starting at lowest add 

Store in si 

Cycle increasing modifier 

Exit 

(1436,7 contiued) Set zero in A 

Jump if 1437 

Store partial sum (zero initially) 

Extract s2i 

Multiply by sli 

Add previous partial Sum, single length, QR 

Cycle, reducing modifier 

Exit with result in Am 

(I437 continued) Store m.sj-2 of partial sum (zero ini 



Store l.s,| of partial sum 

Extract £2i 

Multiply by £li, double length, Q. 

(1466 continued joins) Store m 

Shift 1 into m 

Add c(2(99)) to " 1 " 

Store 

c((99)) 

Add "m" 

Store 

Shift up 1 

Add sum of l.s. halves 

Add m,s,|- of sum of m.s, halves 

Cycle, reducing modifier (not 1466) 

Exit 

Multiply by ''am'' 

Add coefficient 

Cycle, reducing modifier 

Exit 

(1402,13) Set s in Am 

Set link 

Jump if 1402 

Preserve s 

Set s* in Am 

Jump to form cos 30.8.63 



9-4/4 



(o)=* 4003350 

^b) 102, 119, 127, -0.4 

51) 131, 91, 12/, 

121, 12/ , 119, O, 

521, 122, 91, O 



I I400 Extracodes, Page 4 



I (1102) Subtract n from bug i.e. bII9'=bm 

1(1100,1101 join) Set b9I'=c+I 

iSet c r = bug (=s,n,bm for 1100,1101, 

I 1102 respectively) , 

I Set ba'=c+I (from bgi) and exit 



(0)= 


♦400235 


4 




54) 513. 


119, 


0, 


6*6 


55> 107, 


119, 


0, 


6*6 


521. 


122, 


119, 





57 > **3, 


122, 


0, 


(99) 


101, 


91. 


127, 





165, 


92, 


91, 


2047 


125, 


91, 


0, 





125, 


91, 


0, 





101, 


93, 


0, 


(99) 


201, 


126, 


127, 


3(0) 


I64, 


93. 


91, 


511. 4 


101, 


94, 


93, 





107, 


94- 


127, 


-0,4 


126, 


94, 


119, 





214, 


126, 


94, 


3(0) 


203, 


126, 


92, 


~5(o) 


121, 


93, 


0, 




521, 


122, 


93, 





76) 121, 


91, 


0, 


3 


121, 


126, 


0, 


*40c6f 



|(H24)Set n in V6 and exit 

1(1125) bII9*=v6 & n 

iCopy to ba and exit 

I (II3I) Store ba 

ISet C<c+I) in Bgi 

ISet 1 (count) in B92 

DShift k to integer position in B91 

I) 

iSet ba in B93 

iJump into loop and increase bX2? bv I 

I Add k to b93 

ISet C(b93) in BQ4<first time C(ba), then C(ba+k) eto) 

I Mask b94 with m («c(o+i.a>) 

I Non-equivalent with n 

(Jump if zero i.e. test successful 

I Cycle if non-zero, counting from 1 till zero 

I If stiil unsuccessful after 1 cycles, prepare to set ba-*4 

I Exit with ba=address of successful |word (*4 otherwise) 

(Error exit (x<0) for LOG. Set marker 

IJump to monitor 



30.8,63 



9*5 ^*i* KOO 7>*-'- aooaoS 



(o)=i 280*4 

121, 126, O, 

121, 126, O, 

121, 126, 

64) 762, O, 
121, 



5> 335 , 

701, 

4^0356, 

334> 
362, 
320, 

356. 

334. 

342, 
131, 



126, 
O, 

0, 
0, 
0, 
0, 
0, 
0, 
o, 
0, 
o, 



131, 126, 

22) 121, 126, 

734» 0, 

121, 126, 

25) 120, 119, 

113. I]E 9. 

121, 91, 

^3^217, 91, 

113 . 
211, 



122, 126, 

121 , 125 , 



121, 
65) 35 6 > ° 

355» 

4-^322, 



711, 

131, 

121, 

I) 356, 



0, 
0, 

0, 



4> 334, 



98) 



70c, 

131, 
356 , 

355 > 



0, 

*4 

0, 

126, 

0, 



4iff> 0X4- 
(8) 
<D 
(2) 
(99) 



o, 
0, 
o, 
XI9 

119 

119 

0, 

0, 

119 

0, 

0, 

119 

0, 



125, 0, 



4-^ 121, 126, 0, 



o, 
o, 
0, 
0, 
o, 
o. 



> 

0, 

119, 
91, o, 

126 , 126 , 
o, 



o, 

126, o, 



o, 
0, 
o, 
o, 



126, 0, 
125, o, 
o, 



o, 

o, 

119, 

o, 

o, 

119, 



355, Of 

321, 0, 

356, 0, 

4-S«»3«4» °» 

301, 0, 

121, 126, 0, 

53> 356, 0, 0, 

334. °> °> 

730, 0, o, 

356, o, 119, 

355, 0, 0, 

ft-4^35 6 , o, 119. 

730, o, 119, 

121, 126, o, 

66) 237, 126, o, 

740, 0, o, 

121, 126, o, 

121, 126, 0, 

334. °» I2: 9» 

^€-337, 136, o, 

,v — O, 119, 



119, 

/ 

o, 

c, 
0, 
o, 



I 
o 



1(99) 

(99) 

I 

1(99) 

1(99) 



(99) 
(80) 

I i 1(25) 

0.1(25) 

(53) 

(99) 

2<0) 

o 

0.4(99) 

*03 

•03*77777 

(99> 

(60) 

9.4 

i.5<35) 

0.5(25) 

(99 > 

(o) 

(98) 

(99) 

0.1(8) 

0.1(2) 

(99) 

(0) 

1 

1(99) 

(99) 



(80) 

1(99) 

(99) 

1(99) 



(o) 

I 



0.1(63) 

(65) 

(o) 

(65) 

(66) 



(5> 

1 

o 

o 

(o) 

<75) 
(99) 
(o) 



1500 a'=a+si 

1501 a'sa-s: 



(1542,3) 
Store 

"m« • 
• 'm' *xs* 
Add "1" 
Store 
s 



1502 a'=-a+ss 



(1562) Multiply by n and exit 
1504 a'-s: 



1505 a'=-SS 



tti it 



xs 



xs 



:' 'ra' 'xs 



Jump to add other components and exit 

1^20 am *am+n. 



1521 am'=am-n. 



(1520,1 continued) jump to set am=am+c(99) gc exit 
(1534,5 continued) set am'=c(99), l'=o (X); exit 
1524 am'^njl'sO 



i n ihit v Tir*. — * — 

1525 am'sr-n.l'^O (Also I52I,35> Set bII9'»->n 



(1520,4,34 join) Store + n 

) Set up most significant half of (99) to 

) give floating point number from + n 

) with exponent 12 and sign copied up 

Jnrip if bI26 even (1524,5) 

J. -V- "-ack to (22) if 1520,1 and to l(22) if 1534' 5 

IS :? 4 am'=r> l'=0(X) 

1535 am , =-n,l'0(X) 

(1565) store m 

Shift 1 to m 



m 



Subtract "m' ' (i,e.a'=-a) and exit 



1542 a'=a.s: 



1543 a'=-a.s: 



(1501) Store m 
Shift 1 to m 
"1* '~s*QR 
Store 
Bring out 



» 'm" 



' 'm' '-s in A 



Jump to add ("l"~s*) and exit 
(1520,1 continued) Store am 
Set 0(99) in A, standardized 
Add 'am' and exit 



1556 s: '=a. 
Shift 1 to m 
Store 
Add back 



Store m in s 



Hi n 



in s* 



" T m" 



to restore a, exit 



1 5 62 am f =am.n 

(1566) Jump if ax <0 

If ax >0, standardise and exit 



'-_* 



1555 a 
1500 a'=|a| 



1567 a f =|s:|. Set am from s 



Jump if ax<0 to 1505 (a'=-ss) 
(also 1504) Set am from s* 
Add s (i.e. a'=s'.) and exit 
Floating - point zero 

1574 am'=am/n. Clear 1 

1575 aro'=aq/n, Jump for 1574,5 
1570 a'=a/s;. 
Shift 1 to m 



Store m 



30.8^63 



fcf 35S, 
s»324, 

374» 
35&> 
34 Q 



-tw 



3i 



356, 
355, 

5"f 356i 

^324» 

300, 

320, 

320, 

356. 
324. 

363» 
52-P 320, 

^374. 
700, 

75> 340, 
356, 
355, 
o5^» 

52) 131, 

^f 113. 

^217, 
113, 
210, 

324, 

X2I, 

74) 340, 

356 > 

5^355* 

^35S, 
324> 
35^ , 
334, 
774, 
5°) 521, 

2) 35S, 
^' ; ':"355» 
<rf t> 322, 

311, 

3) 356, 

355, 

210, 

320, 

^- 35G-, 

b uf 324, 

Woo, 

So) 356, 

355, 
300, 

710, 

31) 121, 

36) 343, 

5~7#2i?, 

S&330, 

355, 

210, 

321, 
362, 
217, 
. 321, 
217, 



0, 
0, 
o, 
o, 
o, 
0, 
0, 
0, 
o, 
0, 
o, 
0, 
0, 
o, 
0, 
0, 
0, 
o, 
0, 
o, 
0, 
o, 

91, 

119, 

9*. 

91, 

126, 
o, 

126, 

c, 

o, 

o, 

o, 

0, 

0, 

0, 

o, 

0, 

0, 

o, 

0, 

o, 

o, 

o, 

126, 

o, 

o, 

o, 

0, 

0, 

o, 

0, 

0, 

97, 

o, 

126, 

0, 

o, 

126, 

o, 

o, 

126, 

o, 

126, 



o, 

0, 

119, 

o, 

119, 

0, 

o, 

o, 

o, 

o, 

0, 

o, 

0, 

0, 

119, 

o, 

119, 

0, 

o, 

0, 

0, 

o, 

o, 

o, 

119, 

0, 

126, 

0, 

o, 

o, 

0, 

0, 

0, 

119, 

0, 

0, 

0, 

o, 

0, 

0, 

o, 

o, 

0, 

0, 

126, 

119, 

0, 

0, 

119, 

o, 

o, 

0, 

0, 

126, 

o, 

124, 

o, " 

0, 

97, 

o, 
o, 

124, 
0, 

124, 



1(99) 

(99) 

o 

2(99) 

o 

3(99) 

(0) 
4(99) 

3<99> 
(99) 
4(99) 
1(99) 

3(99) 
2(99) 

I 

3<99> 

o 

2(99) 
(0) 

1(99) 
(0) 

3(99) 

*03 
0.4(99) 

*03I77777 
<99> 

(64) 

<99> 

6<o) 

(o) 

x<99) 

<o) 

3<99> 
o 

<99> 
1 <99) 

(99) 

o 

<99> 
<o) 

(93) 
(99) 

(99) 
(o) 

(7) 

1. 

1(99) 

(99) 
o 

(99) 

(0) 
1(99) 

(99) 

*00O05'/2 

<97> 

3<o) 

(96) 

(0) 

2(0) 

(94> 

<95> 

4(0) 

<95> 
2(0) 



9*5/2 
I 1500 Extracodes, Pag© 2 

(1576 continued) Store ''1" 

Bring back ' 'm' ' 

Divide by s, QR,=(am/s)R 

Store 

Multiply by 5,=~(am/s)R x s 

Store m.s.i 

) 

)Store l.s.l 

Bring back m.s,| 

Add ' 'm' ' 

Add l.s.J of -(am/s)R x s 

Add "1" 

Store, =(a~(am/s)R x s) 

Bring back (am/s)R 

Multiply by -s* 

Add 0(3(99)), =(a-(am/s)R x s)-(am/s)R x s* 

Divide by s 

Finally add (ara/s)R and exit 

^574,5) Standardize, 

Store in 

) 

) Store 1 

(1562 joins) 

)Set up n floating point in (99) 

) 

Jump if bI26 odd (1562) 

(1574,5) n standardized in A 

Jump 

(1774,5) Standardize a. 

Store m 

) Store 1 

) 

s standardised in A 

^574,5 rejoin) Store standardised divisor 

Bring back m.s. § of dividend 

Divide and exit 

Dummy exit 

(1502,1543) Store m 

Shift 1 to m 

Set m =-"l" 

Subtract "m" (i.e.a's-a) 

(1500,1542 join) Store m 

Shift 1 to m 

Jump if bI26 odd (1542,3) 

(1500,2) Add s* to M l" 

Store 

Bring back "m" 

Add s 

(1501 joins, 1542,3 rejoin) Store m 

Shift 1 to m 

Add C(I(99>) 

Add "m" and exit 

(1730,1,2,3) Set link for exit to (96/1400) 

SIN/COS. Multiply by 1/Z% 



Jump if small (<I/8, i.e.x < % /$) 

Fix with exponent 13 unless very large 

Take fractional part i.e. reduce mod 2 (zero if la 1 

Jump if sin 

If cos, subtract -1/4 (i.e. add % /2 to x) 

x£ 

Jump if exponent - ve, i.e.<+l/8 

Subtract £ (range-3/8 to 1/8 , i.e. -3% /Z<x<% /z) 

Jump if >-l/8 (x>-rc /2) 

30.8.S3 



G I o 



97) 
96) 

95) 
94> 
S%93> 



&0T322, o, 0, (94) 

356, 0, o, (99) 

362, o 1 , 0, (99) 

121, 91, 0, 4 

346, 0, 0, 1(99) 
310, 0, 91, (92) 
342, 0, 0, K99) 
203, 126, 91, -2(0) 
310, o, o, (93) 
342, o, 0, (99) 
121, 126, 97, *7777c6$ 

* 000 12137/* 140667 12 

* 03200000/* 00000000 

* OOO4OOOO/* 00000000 ; 

* 0016 0000/* 00000000 

*004i444i/*76652i03 
92) *oo72652i/*o3o656i6 > 
*OI050632/*740I53I3 ; 

*oi354645/*664i60;23' J " 
* 01252005/* 01240643 • 
*oi3d$33p/*74i6356b 

9j) *7673774o/*opOe»o^od '■".;, 

^4604100 
<9o) 
Ql 

■ *3. ^ .. 

£?9> ; 

§4664X00 

(q> : 

■?4V-" 
10(0) 

SJ74- 
*-9(o) 

(46) 

<44> 
(99) 

0.4(99) 

<99> 

<45> 

<99) 

K99) 

1(99) 

2(99) 

<49> 
1(99) 

<99> 

<47> 
2(99) 
2.0 
(48) 

(99) 
2<99) 

<99> 
<99> 
2(99) 

4(0) 

<99> 

<43) 

<99> 

o 

o 

-5(0) 



2b) 121 


. 97 ,: 


' ,: 'oV/ 


^.-235 


, 126, 


/6, : 


' 335 


, 0, 


U9> 


, ^ 


, .I.a4, 


°, 


'■ 237 


,:.: %u* 


Q, 


y%QX 


t 126, 


61 


5 J > 343 


> 0, 


i?9. 


sB> fc$£ 


. .974.:: 


0, 


|6)>36o 


, 0, 


o> 


f^t3S 


« 9*» '' 


Q*. 


217 


, 126, 


' *34> 


■ 121 


. 92, 


134, 


■■».-■ 2l6 


, 126, 


92, 


- 343 


. 0, 


0, 


330 


. .0, 


0, 


356 


- 0, 


0, 


6 113 


. 91. 


o, 


<S -^ 311 


0, 


0, 


343 


0, 


0, 


101 


91, 


0, 


356 


0, 


0, 


373 


0, 


0, 


356 


0, 


0, 


330 


0, 


0, 


372 


0, 


0, 


356 


0, 


0, 


334 


0, 


0, 


372 


0, 


0, 


121 


92, 


0, 


330. 


0, 


0, 


301 


0, 


0, 


356 


0, 


0, 


334. 


0, 


0, 


330. 


0, 


0, 


374. 


0, 


0, 


121, 


126, 


0, 


35 & . 


0, 


0, 


330, 


0, 


0, 


342, 


0, 


0, 


125. 


91, 


0, 


163, 


91, 


0, 


203, 


126, 


92, 



I 1500 Extraeodes, Page 3 

. 9-5/3 
(Sin/Cos continued) If between -3/8 and -1/8",' add 1/4 
Store as y | (range + 1/8, or +% /2 in X) 

y squared 
Set count 

Store y squared, clear A 
(Loop) Add ith coefficient to a 
Multiply by y squared 
Cycle, forming polynomial in y squared 
Add Oth coefficient, giving sin y/y 
Multiply by y 
S IK/COS EXIT 
1/2% 

+0, with exponent 13 
1/2 
-1/4 

) ..,■ -. '-.- .v. ■ ' 

> '"">. 'J*- ."■■> ' 

) Coefficients for sin/cos 

) ■ • v .,-■":' 

) ; . " ' '"^\ ■ :■■■' "•■•■ "- : ;■ ' ■" 
UT ■;.' : '^--.'- : '■' .- • ,■' , ■ ' . ■ 

Constant for Log, -|256|) x8 to powej* -8 

(1713) Sot link ; 

Jump if a j£ o to form log am, exit to (51) 

(a=G) Set -s a,n'A"-:;.: 

If S < 0, set exponent f=,'fl92;, preparing for EO 

J$\'s,>p, ■$%$ exponent =?Vl92 ! ? preparing for exp underflow 

Jump to -tail of Exp to set EO o^ EIJ, ex^i; to (50) ( 

(1713 continues) (Log am in A) Multiply by s 

(1702/3 join) EXPONENTIAL Set -link to exit %o (50) 

((1402^ ppni;ihu<?d. joins) Sjtandardisie (=%• ssty): 

Sot * s in bqx - --J-- ';;' '.".■ ■■*.,.:■; 

(Jump, if oxpcjnent hegatiye (^'Ismail) ' r ■"..;; K, 

Set I392 - exponent -4 

^ump f or out of range if . exponent > 4 '' 

Multiply by, log eJ|o, base 8 , '■■ V'" ^ 

Add I and fix^ i.e. (lnt.pt)R+ in ^ word position 

Store 

Store *4 in l.s,|, i.e. clear frac.pt. and add § 

Subtract from a, i.e. result =x log e -(Int.pt)R+ 

Multiply by log 8 to base e, i.e. unscale remainder 

Set (Int,pt)R+ at bottom of B9I 

Store a, =z say 

z squared 

Store 

Add p 

Multiply by z 

Store, =(z squared + p) z, =w say 

q 

Multiply by z squared 

Set count 

Add r 

Subtract w 

Store 

w 

2w 

2w/(qzz+r-w), = exp (z/8) -I approx 

Jump into loop 

Store, ss v say) Generate successively 

Add 2 ) exp(z/4)-I, exp(z/2)-X 

Multiply by v ) exp z-I, keeping accuracy 

) Shift b9l up 5 places each time round the loop 

)i.e. end up with (Int.pt)R+ in exponent position 

Cycle 

3°. 8.63 



%) 



4 

47) 

4^> 

45) 
44) 
43) 
42) 
15) 



24) 
go) 

27) 



11500 Extracodos, Pago 4 

320, 0, 0, (42) 
124, 124, 91, *001 
365, 0, 0, (0) 
340, 0, 0, (0) 
121, 126, 97, *77?6445 
*oioi7oo6/*403 14262 
*oi2i7oo6/*403l4334 
*oo46oo2i/*256i36o6 
*ooo366i 6/^04734165 
*0O22o5o5/*3io77i70 

*01200000/*40000000 

*00220000/0 

*00210000/0 

362, 0, o, 

122, 0, 

o, 119, 

97. 0. 
126, o, 

o, o, 

122, 0, 

97, o, 

126, 0, 

0, o, 

126, 0, 

91, 124, 
124, 0, 
0, 0, 

0, 0, 

o, 0, 

o, o, 

92, 0, 
91, o, 
0, o, 
0, o, 
0, 0, 
0, o, 
o, 92, 

0, 0, 



356 
324 

121 
121 

362 

756 

121 

237 
360 

234 
121 
121 
320 
356 
300 

374 

121 
113 

356 
362 

113 
346 

300 

342 
203 

300 
352 
300 
310 
362 
121 



41) 
40) 

39) 

60) 



126, 92, 

o, 0, 

0, 0, 

o, 0, 

0, 0, 

0, 0, 

126, 97, 
*ooo265oi/*i7i46376 
*ooi22575/*4 1 4 6 30Q3 
*o22205o5/*3io77i7o 
724, o, 0, (99) 



2(99) 

o 

1 

H0036351 

(36) 

2(99) 

1 

^4004011 

(76/1400) 

<o) 

(76/1400) 

*4 

o 

(41) 

1(99) 

(40) 

1(99) 

6 

0.4(99) 

1(99) 

1(99) 

(99) 
2(99) 

(37) 

2(99) 

-2(0) 

(38) 

1(99) 

(99) 
(9D 

<39) 

*7776534 



P 



o 
o 

o 







/ 
/ 
/ 
/ 
/ 
/ 
/ 







o 







*7&o75434/* 11670327 
* 7602441 1/^30520752 
* 76014237/* 13253256 
*76oio63o/*ii27i374 
*75666i7i/*3oi27254 
*7566ioi5/*4oo2i262 
*75621422/*02664134 
*76oii735/*7454545i 



9.5/4 



I (Exp continued) Add 1, i.o, result = oxp z 

{Adjust exponont, adding (Int.pt)R-f +1, result =8 exp aq 

J)Shift down to onsuro unstandardizod) result = oxp aq 

Dand sot EG or EU if appropriate ) 

(EXIT FROM EXPONENTIAL 

1) 

1 )Coof f icionts for Exponential 

I) 

I Log o to base 8 ) Constants for Exponential 

I Log 8 to baso o) 

IConstant for Exponont. §, fixed with point at \ word posn. 

I+2 

j+1 

[(1402,13 continued) (cos o* in A) Multiply by s (I4I3), 

I or oxp s (I402) and store as real part of ca. 

(Sot 5* in A 

I Sot link to exit to 2(0) 

lJutnp to form sin s*, exit to 1(0) 

(Multiply by 5(1413) or oxp s (I402) 

1 Store as imaginary part of ca and exit 

1(1700,1) LOG Sot link- to oxit to (50) 

(Jump for monitor if a<0 

1(1713 continued joins) Standardize 

I (I400 continued joins) Jump for monitor if =0 

(Sot b91*= exponent +256 

fSot exponent =0 

(Add p 

I Store x+p 

[Add -2p, = x-p 

} Divide by x+p 

1Sot count 

[Store oxponont +256 in lowor half of (99) 

(Store (x-p)/(x+p), = z say 

I Square 

(Clear top half of (99), i.e,c(99)=(exp +256) x 8 to power -8 

(Store z squarod. 

((Start of loop) Add coefficient )Form 

(Multiply by z squarod polynomial 

(Cycle )in z squarod 

(Add Oth coefficient 

(Multiply by z, ?■ (log x+J log 8) x 8 to powor -8 

(Add(exp +256) x 8 to power -8, double length 

(Add -(256!) x 8 to power -8 

(Multiply by ln8 x 8 to powor 8; result = log x 

(EXIT FROM LOG 

[-2p )Constants for log 

Hn8 x 8 to powor 8) 

((1524,5 continued) Sot um'=c(9Q) Q, and exit 

I) 

1) 

1) 

1 ) Sparo 

1) 

1) 

1) 

I) 

1) 

( )Coofficionts For Log. 



1) 
I) 
n 

I) 30'8.63 



9.6 The 1600 Extraeodos 
(o)=i536*4 <^r&ai 
+0/0 

98, 119, o 

99, 119, o.< 



9.6/1 



IOI, 

501, 

+O/O 

131, 
131, 
121, 
I07, 

5°7 > 

136, 

536, 

113 > 

5*3 > 
113, 

113. 
734. 



136, 
126, 
126, 
98, 

99» 

98, 
99, 

98, 
99, 
98, 
99, 

24*^13, o, 
101, 91, 



113 » 

734 > 

131, 
+O/O 

121, 
+0/0 



91, 

0, 
126, 



147, 

K*a-IC6 , 
S06', 
+0/0 

356. 

IOI, 

501, 

!) 356, 
101, 
215, 

M7> 

5*3, 
+0/0 

147- 
547, 
+0/0 
+0/0 

152, 
235, 
152, 



5) 



101, 
163, 
572, 
104, 

IOI, 

104, 

210, 

IOI, 

164, 
147 > 

164, 

IOI, 

564, 



0, 

0, 
o, 

119, 
119, 
119, 
119, 
119, 
119, 

o, 
o, 

0, 
o, 

119, 
0, 
o> 
0, 



125, 0, 



98, 

99, 

90, 

99 



0, 
98 

99 
o, 
92 
92 
92 
93 

98 
99 



98, 

9% 

JL&O a 



91, 
91, 

99, 
91, 

98, ' 

136, 

93, 

98, 

92, 

99, 

91, 

98, 



119, 
119, 
119, 
119, 





o 

92, 

o, 



119, 
119, 



0.1(5) 

(5) 

(6) 

o 

0.4 

o 

0.4 

o 

0.4 

(99) 

0.4(99) 

(99) 

o.4<99> 


(99) 
(99) 

(34.) 

(92) 

o 

0.4 
o 

0.4 

(99) 
(99) 

0.4(99) 
(99) 

0.4(99) 
0.1 

(99> 
o 



0.4 



119, 

o, 

119, 

0, 

0, 

0, 

o, 

119, 

0, 

119, 

136, 

o, 

91, 

o, 

92, 

o, 
91, 



o 

3(0) 

0.4 

(96) 



o 

0.4 
6*6 



6(0) 

6*6 

0.1 

6*6 

0.1 

6*6 

0.1 



73) * 00037777 7 *t666oooo 
* 00037756 / *67i43647 

75) *ooo2650i / 01714537s 

76) * 01200000 / *400ooooo, 

77) *ooo4Qooo / o 



I Unas signed 

| l6oi g'=s Store m.s, | 

| Store l.s. | and exit 

lUnassigned 

j 1604 g'=g+s Jump v/ith marker 

1 1605 g'=g+s with end-around- carry 

1 1606 g f =g £s 

1 1607 g' = g&s M.s. I 
IL.s. | and exit 

I l6ll g' = not g. M.s.l 

IL.s. I and exit 

1 1613 s'=g M.s. | 

IL.s. | and exit 

I 1615 am'sg M.s.l to store 

I L.s. I to store 

I Transfer to A and exit 

K1624) C3 -Q ar 1 > s > I of word 

iSet b9I=h 

I Store b9I in m.s. | 

I Set am and exit 

H624 am'=h 

lUnassigned 

1 1636 h f =am 

I Unas signed 

1 1630 g' s= g & (not s) 

|g f =gvs 

I ( 1606 joins) 

lg'=g£ s (=g & not s for 1630) . Exit 

lUnassigned 

1 16^ g'=am Store am 

I M.s. § in g 

IL.s. I and exit 

i (1626) Store am 

I Extract l.s.| 

ISet b93 =0.1 if l.s. ^ 

(Extract m.s. | of g, oring 0,1 at bottom if l.s. J 5* 

I (i.e. Atlas type rounding) Store in h and exit 

I Unassigned 

I 1646 g'=gvs M.S. | 

|L.s. I and exit 

lUnassigned 

lUnassigned 



1 1653 bt' =g - s. 



Set bt from difference of m.s. halv 



I Jump if non-zero to ignore l.s. halves 

|If zero, set bt from difference of l.s. halves 

I Jump to exit if zero 

[Extract v6 (l.s, digit = Bcarry) 

I Shift Bcarry to sign position 

ISet bt from Bcarry and exit 

1(1604,5) Add 1.3. J halves 

I Extract V6 (l.s. digit = Bcarry for l.s.|) 

I Add m.s. halves 

I Jump if 1604 

[Extract V6 (l.s. digit = Bcarry for m.s.|) 

I Add carry from l.s.| into m.s.| 

ISet digit 23 of B92 =1 if Bcarry set by -I(o) or -4(0 

|Add into l.s.| 

t Extract "V& 

I (1604 rejoins) Add final carry, if any, 

j) , I from. l.s. I to m.s. |, and exit 

I )Coef f icients 

j ) for square root routine 

I) 

1+4 

30.8.63 
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9.6/2 



io> 165, 93, 

131, 97, 

12) 324, o, 

23:7. 93. 

*4> 356, 0, 



362, 

■35^ > 
324. 

3^0, 
32) 3X0, 
360, 



O, 

o, 
o, 
o, 
o, 



0, 



215, 

134, 

113, 

121, 

121, 
35S, 



35'5, 
756. 
356, 
3S7, 



122, 

122, 

o, 

o, 

o, 

o, 

95. 

(V? 
>/ » 

126, 



119, 
o, 

jlIo, 

93. 
o, 
o, 
o, 

119, 

XXv> j 

o, 

o, 

97. 



94) 234, 126, 

237, 126, o, 

36) 165, 91, 124, 

35S» o, o, 

91, 91, 

91, 124, 

9i, o, 

124, 0, 

0, 0, 

0, o, 

92, o, 
o, o, 
0, 0, 
0, 0, 
o, 0, 
o, 93, 
126, 92, 
0, o, 

o, 
o, 
o, 
o, 
o, 
97, 



Jb4, 

374, 

300, 

34-2, 
203, 

35S, 

343, o, 

3*o» °, 

373, o, 

374, o, 
302, o, 

121, I26, 
+0/0 

45) 131, 91, 0, 

121, 126, O, 

47 > 235, 126, o, 



320, 

362, 
121, 
121, 
121, 
60) 107, 95, 
314, 126 , 

131, 95, 

211, 

322, 

356, 
324, 
362, 



136, 
0, 

o, 
o, 
0, 



374 > 

356, 
120, 

324, 

+0/0 

+c/o 



95, 

0, 



o, 

o, 

93, 

0, 

o, 

o, 

o, 

o, 

93, 

95, 
o, 

93, 

o, 

o, 

93, 

o, 

o, 

95, 

0, 
o, 
95, 



-1 

-3(47) 
1 

0.1 

(99) 

<99> 
1(99) 
o 
o 

1(99) 

~3<9£> 

Co) 

<45> 

*00I 

(99) 

*000373IO 

*ooc62343 

1(99) 
o 

<75> 

1(99) 
1 ■ 
1(99) 
(99) 
J (99) 
1(99) 

(73) 
-5(0) 

1(99) 
1(99) 



(76) 

1(99) 
1(99) 



*.■■}■ 

187*4001 
3<o) ' 

1 

<99> 



(99) 

*ooi 

-3(60) 

(26) 

o 

4(0) 

-I 

2(0) 

(35) 

(99> 

1 

(?7> 

(99) 

1 



(99) 





I (1410) Set b93 from bll$ removing octal fraction 

I Set link to exit to (47) 

1(1413 joins, BI26 odd/ 1400 cont.) Set a = sx, = v sav 

I Set b93 odd if v<0 

!(I7I2 joins with BI26 odd) Store v 

|v squared 

I Store 

Is 

I s squared 

[Add v squared , for i <J[2jF7IOjI2 

Ui/10,1 joins with B136 odd) Set link to exit tofc'5) 

.1 SQUARE ROOT Round single length, = x' say 

!(I720,I,3,3 continued) Bxit if a=o(short cut) 

Uuiiip to error exit if a<0 

K1410 second entry) Least sig. digit of exponent to bo 

I Store x' 

|)Set 1st approximation to sqrt x' in 1(99), =yo say 

\H 4th root of 1/8, with § exp of x', if exp even 

l)*(l/8) to power 3/4, with exp |(bJ34+l), if exp odd 

I Force bI34=0, giving a'=xo, say 

I Add constant 

I Multiply by yo to give linear approximation, =yl say 

I Set count for two cycles of loop 

I Store y ) 

!x ) 

[Divide by y 

lAdd y ' ' " ) 

{Multiply by I ) 

I Cycle ) 

I Store 

I Multiply by -y, 

lAdd x double length 

I Multiply by -§ 

I Divide by y 

I Negate and add y, d.l.) 

I SQUARE ROOT EXIT to bQ7+3 

I Spare 

I (Square root error exit, argument negative) . Set marker 

I Jump to Monitor 

K14IO continued, with mod s: in A) Jump if 5*0 (normal) 

I) If =0, set ca'=0 

I ) and exit 

I If mod s: $ 0, store 

llsl 

I Add mod s: 

|x| 

I Set mask 

(Set link to exit to (60) 

I Jump to form sq.rt(£(mod s: + |s|)) 

I) 

I (Jump if s_>0, setting b95=o 

I Set b95=-l if s<0 

Uump if s*>0 

llf s and s* both <o, negate accumulator 

1 Store, as z say 

I) 

l)$sv 

(Divide hy z 

i Store as real pt. of Ca if s<o, imag pt if >o 
iHegate b©5 """ 

is 

i Store as real pt. of Ca if s>0, imag. pt if <o. Exit 
i Spare 
i Spare 



)y(n+l)=J(x/y(n)+y(n)) 



)Last iteration 

)y(n+l)=y(n) 

)+| (x-y (n) squared)/y (n) 

) 



30.8.63 
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25) 360 


, 0, 


0, 


(0) 1 


131 


, 96. 


0, 


1 


121 


. 97. 


0, 


(96) i 


3> 234 


, 126, 


0, 


(95) i 


121 


■ 92, 


jL&t-f) 


*',?■/'/ 1 


236 


, 126, 


0, 


3(0) ! 


366 


- 0, 


0, 


<o> | 


126 


, 96, 


0, 


0.5 1 


217 


, 126, 


92 > 


5(0) | 


35^ 


- 0, 


0, 


(99) 1 


334 


, 0, 


0, 


(94) i 


374 


. 0, 


o> 


<99> 1 


126 


97. 


0, 


0.1 1 


217 


126, 


124, 


7<o) | 


330 


o, 


0, 


(81) | 


356 


0, 


0, 


<99> i 


330 


0, 


o, 


<3c) ! 


372. 


0, 


o, 


(81) | 


374 


0, 


0, 


(99> i 


121 


92, 


o, 


0.1 | 


35&. 


0, 


c. 


(99) 1 


342. 


0, 


0, 


(99) 1 


121, 


91, 


o, 


4.0 1 


346 


0, 





1(99) 1 


300 


0, 


91, 


(83) | 


342, 


0, 


0, 


1(99) 1 


203, 


126, 


91, 


-2(0) | 


330, 


0, 


0, 


(02) I 


342 


0, 


0, 


<99> 1 


211, 


126, 


92, 


2(0) I 


330 


0, 


0, 


cap 1 


?5> 211, 


126, 


97. 


2(0) 1 


40) 302, 


0, 


0, 


(85) 1 


300, 


c, 


96, 


0.2(86) I 


211, 


126, 


96, 


2(0) | 


302 


0, 


0, 


(85) | 


121, 


126, 


97. 


I 


11) 334, 


0, 


119, 


1 1 


46) 210 


97, 


126, 


(96) ! 


356 


, 0, 


0, 


(99 > 1 


121 


96, 


0, 


1 


324 


0, 


119, 


i 


234 . 


126, 


0, 


S(o) | 


236 


126, 


0, 


3(0) 1 


366 


0, 


0, 


(0) ! 


121, 


96 . 


0, 


1.5 1 


356, 


0, 


0, 


1(99) i 


324 


0, 


0, 


(99> 1 


374. 


0, 


0, 


1(99) 1 


121, 


126, 


0, 


<3> 1 


345 


0, 


G, 


(99> 1 


234. 


126, 


97. 


I 


237. 


96, 


0, 


0.1 I 


121, 


126, 


0, 


(40) 1 


96) 521 


0, 


0, 


(0) I 


I) 121 


97/ 


0, 


(15) i 


121 


125, 


0, 


(12) i 


»/l) 235, 


126, 


0, 


(93) ! 


324 


0, 


0, 


3(99) i 


342 


0, 


0, 


(85) i 


121 


126, 


0, 


<95> i 


+0/( 


3 






+G/( 


3 






+C/( 


3 







(1724/5) Standardize 

Sot marker 

Set link to exit to Dummy Exit 

ARCTAH/COT , Jump to short cut if =0 

Set fc>92= exponent minus one 

Jump if a >0 

Otherwise set positive 

and reverse digits 21,22 of B96 

Jump if |x| <I 

)Otherwise form 

) reciprocal 

)and reverse digit 23 of B97 

) 

Jump if |x'|<I/8 

Add I/u [u=tan (^(arctan 1/8+^/4))] 

Store 

Add -(u+I/u), i.e. result = x-u 

Multiply by I/u 

Divide by x+I/u. Result = (x-u)/(l-ux) 

Mark B92 odd for ix' [_>X/8 

Store as y 

y squared 

Set count 

Store y squared, clear A 

(Power series loop) Add coefficient 

Multiply by y squared 

Cycle 

Add first coefficient 

Multiply by y 

Jump if x' small 

Otherwise add arctan u (approx) 

Jump if b97 even 

If "D97 odd (cos, x<l; sin, x>l; tan,' x>l) , 

Add or -1 |form7t/2~result 

Jump if b96 even (1721 to 5,x>Q;l4II,I726, s_>o) 

Otherwise negate result 

ARC TAN/COT EXIT to b9/ 

(I411,bl26 odd, and 1400 continued) Set s* in A 

(1726, BI2S odd) Set link to exit 

Store a, =x say I for I41I, 1726 

Clear marker 

s 

Jump if zero 

Jump if >0 

)lf <0, take modulus 

)and set marker 

Store |s| 

Bring back x 

Divide by I s I 

Jump, form arctan. 1411,1726 exit to (96)? 1400 to (> 

(Here if s=o) Set x in L, sign thro' M, exp unchngd ( 

Exit if a=0 (i.e. if x=o also) with result =0 

If xy*0, set 1296 odd if x < 

Jump with A effectively containing zero, to form + -tv 

Dummy exit *""' 

(1400) Set link 

Jump to form sq.rt (s.s + s*.s#) . Exit to 3(l5)=(l8; 

(1720,1,2,3 continued) Sq.rt (l-x.x) in A. Jump if 5*0 

If zero, recover x <==+!) , 

Multiply by^/2 (a'~+ %/2) 

Jump to adjust for sin/cos. Exit to (96) 

Spare 

Spare 

Spare 

30.8.63 
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+0/0 

93> 356, o, 

3^4, 0, 

374» o, 

121, 126, 

21) 35 6 > °> 

373, 0, 
121, 
310, 
165, 

236, 

121, 
121, 
*5> 35*5, 122, 

334» °> 

121, 126, 
18) 356, o, 

121, 126, „, 
So) *oo353565/*6753ii22 

81) *0O22O256/*6574i5ii 

82) *ooo;>/fiy/*yyfly7 3 z 
03) *ooi52525/*2533aS76 

* oooi/]j53i/*34747i75 
*ooi66674/*23667077 
*77^67345/*25i 00371 



o, 

96, 

126, 

91, 
126, 



o, 
o, 

o, 
0, 
o, 

o, 

126', 
o, 

97 > 

o, 

o, 

0, 

o, 

o, 

0, 

o, 
o, 



1(99) 
3(99) 
1(99) 

(3) 

3<99> 

3(99) 

-18 

<S;) 

0.2 

(94) 

4 

187*4001 

1 

4<99> 

(27/1500) 
4(99) 

(11) 



<"> A 

04 




•*-yfifct 



*oo346674/* 02253570 
87) * 00210000/* 00000000 



I Spare 

I (1720-3 continued) a=Sq.rt(l-xx), (*o) , Store 
|x 

(Divide by sq.rt(i-xx) 

Uump to form arctan/cot.Exit to (96) 

1(1722,3 with 0.7 in BI26?I720,I) Store aq (=x) 

I Form -x squared 

iSet link (exit to 3 (96) =(71) Form SQ.RT; exit to (96) 

(Form I-x.x j rorra aretan/oct) 

I b96 '=0(1720, l)or 0.2(1722,3) 

Uump to form sq.rt(l-x.x)",i£ >0. Exit to 3(oS>^(7l) 

llfl-x.x<0, Set mark ~* 

land jump to Monitor for error. 

I (1400 continued) a=arctan (s*/s). Store as imag<pt.o3; 

I Bring back sq.rt.(s.s+s#.s*) 

I Jump to form log. Exit to (95/1400) 

K1400 continued) a=sq.jpt(ss+s*.s*). Store 

Uump to form arctan(s*/s). Exit to (15) 

I ) 

I) 

I) 

I) 

I ) Coefficients for Arctan/Cot 

I) 

I) 

I) 

\r 

I 7C/2 

I Floating-point zero 

I-7C 
l+I 



3O.O.63 



9.7 Tfre I70O Extracodes 



(o) =1792*4 

334, 0, 



9.7/* 



121, 

324> 



136, 
O, 



121, 126, 

334» 0, 

121, 126, 

334» 0, 

131, 126, 



324. 
121, 



0, 
126, 



121, 126, 

121, 126, 

121, 126, 

355, o, 

3^5. o, 
774. 
324, 



o, 
0, 



121, 126, 

324, o, 

121, 126, 

324, o, 

121, 126, 

121, 126, 





121, 


136, 




324, 


0, 




121, 


126, 




324, 


0, 




121, 


126, 




324> 


0, 




121, 


126, 




124, 


126, 




356, 


0, 




366, 


0, 




321, 


0, 




237, 


126, 




211, 


126, 




134, 


127, 




734, 


0, 


94) 


♦064 


/ 


96) 


*00I 


/ 


98) 


#4 


/ 


93) 


*ooo4 / 



121 

121 
211 
121 
121 
121 
356 
763 
121 
121 
120 
121 

334 

236 

t 732 

97> 52i 

121 

121 

347 

; i2i 

121 

131 



ia6, 
126, 
126, 
136, 
126, 
126, 
o, 
o, 

126, 
126, 
119, 
126, 
o, 

126, 
0, 
0, 

126, 
126, 
0, 
126, 

121, 

126, 



119, 

0, 

119, 

o, 

119, 

0, 

119, 

0, 

119, 

0, 

0, 

o, 

0, 

o, 

o, 

o, 

119, 

o, 

119, 

o, 

119, 

o, 
0, 
o, 

119, 

o, 

119, 

o, 

119, 

o, 
o, 
0, 
o, 

119, 

136, 

136, 

o, 

0, 

o 

o 

o 

o 

o, 

o, 

124, 

o, 
0, 
0, 
o, 
o, 
o, 
0, 
o, 
o, 

119, 

0, 
0, 
o, 

o, 
0, 
0, 
u, 
0, 
o, 



(24/1500) 



(35/1500) 

o 
(5) 



<7) 

o 

0.1(22/1600) 
0,1(14/1600) 
(26/1500) 

(14) 

<99> 

(96) 
(99) 



(21/1600) 

o 

0.7(21/1600) 



(25/1600) 
0.1(46/1600) 

(27) 



0,1(31/1500) 



(31/1500) 



$4004400 

o.5 

(99) 

(O) 



1.3 

2(0) 
I 

(99) 



<52) 

(53) 

<54> 

<55) 

(56) 

(57) 

(99) 

(99) 

(62) 

(63) 

o 

(65) 



(97) 
(98) 



(72) 

(73) 
(o) 

(74/1500) 

o 

(76) 



J700 am'sslog s. Set aq*=s 
I 701 am'=log aq. Jump 1700,1 
Set aq'=s 
Jump 1702,3 



1702 am*=exp s, 

1703 am'=exp aq 



1704 a'=int»pt,s.Set a'=s 

1705 a' =int,pt. a. Jump 1704,5 
1700 a'=sign s Set a'=3 
1707 a'=sign a Jump 1706,7 



1710 am 



I7II am 



1712 am 

1713 am 

1714 am 



=sq.rt.s Set aq's=s 
=sq,rt,aq. Jump 1710,1 
=sq.rt,(aq.aq+s.s). Jump 
=am to power s. Jump 
=I/s , Jump 
=I/am» Store am 
Set I in A 

and exit 
=arcsin s. Set aq'=s 
=arcsin aq # Jump 1720,1 
=arccos s. Set aq'=s 
=arccos aq. Jump 1722,3 



I 715 am 



Divide by' 'am" 
1720 am 



1721 am 



1722 am 



Vm. am 



1724 am 
.1725 am 
1736 am 



1730 am 



1731 am 



1233 am 



1733 am 

1734 am 



=arctan s. Set aq'=s 
=arctan aq.Jump 1724,5 
=arctan(aq/s) 



1727 c*=c+I,2 or 3 as am >,=,< s 



=cos s, 

=cos aq 

=tan s, 

I 735 am'=tan aq 



1736 c'=c+2 if 



=sin s Set aq'=s 
=sin aq» Jump 1730,1 
Set aq'=s 
Jump 1732,3 
Set aq'=s 
Jump 1734,5 
ami > s. Add 0.5 to bI26 
ami < s. Store am 



1231 c'=c+2 if 

Form I am | 

Subtract s 

Jump if |am|-s<0, to 2(0) if 1737, to 3(0) if 1736 

(|am|-s>0) Jump if 1737 

(I736, |am|-s>0|! 1737, |am|-s<0) Set c'=c+2 

Recover am and exit 

+0, exponent 25 

Floating-point -I 

Floating-point zero 

Floating-point +| 

1752 m'=ax, exp 12$ ay'=ay -12 



1753 ax'=m, exp 12} ay = ay +12 



1754 Ro "tt d am by R+, Q, Jump when A free 



1755 ax'=ax, exp (ay-n); ay's=n 

1756 s , '=am,aia , -8 

1757 am»=s/am 
1 760 am'=am squared 



1762 ra'=ax, exp 12 



1763 ax'=m, exp -12 

1764 ax'=ax, exp n. Set bII9=-n 



17S5 ax'=ax, exp -n. Jump 1764,5 
1766 



am - s 1 



X» Set s in am 
1767 am'=lam|,X. Jump if a > to exit 



Set a'ss-am+0, ie. negate am, and exit 

1771 b!2I'=Ba, bII9'=N+ba+bm. Dummy A-type extracode 



1772 m'=(m,sx), exp 12; ay'aay+sy-12 
1223. m'=(ax/sx), exp (ay-sy-I2)| ay '=13 

1774 am'=am/s. Clear 1 

1775 am'=a/s. Jump 1774,5 



*-7f& Remainder and quotient. Set bI2ls=o 

Jump 
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5> 217, 


124, 


124, 


I 


7io 


0, 


0, 


(94) 1 


27) 356, 


o, 


0, 


<99) 


321 


0, 


119, 


I 


234 


127, 


127, 


1 I 


237 


r 127, 


127, 


2 1 


734 


0, 


0, 


(99) 1 


14> 325. 


0, 


o, 


(96) 1 


in 


0, 


119, 


l 


57) 356 


0, 


0, 


(99) I 


324 


0, 


119, 


1 


774 


0, 


0, 


(99) 1 


54) 101 1 


91, 


0, 


6*6 1 


354 


0, 


0, 


(0) I 


300 


o, 


o, 


(98) 1 


513 


01, 


0, 


6*6 1 


53) 124, 
63) 356 


124, 


0, 


*oi4 I 


0, 


0, 


(99) I 


345 


0, 


0, 


(99) 1 


764 


0, 


0, 


(0) i 


56) 356 


o, 


0, 


(99) 1 


334 


0, 


119, 


{ 


356 


0, 


0, 


1(99) 1 


334 
356 


0, 


0, 


(99) I 


0, 


119, 


f 


734 


0, 


0, 


(99) | 


72) 352 


0, 


119, 


I 


52) 122 


124, 


0, 


*oi4 J 


62) 121 


91, 


124, 


1 I 


121 


124, 
, 126, 


0, 


*oi4 1 


m> 121 


0, 


(7D 1 


92, 


0, 


*oi4 I 


121 


121, 


0, 


46 1 


41) 340 


0, 


0, 


(0) I 


356 


, 0, 


0, 


K99) 1 


324 
356 


0, 


119, 


I 


0, 


0, 


2(99) I 


324 


. 0, 


0, 


1(99) i 


374 


, 0, 


0, 


2(99) 1 


47) 113 


122, 


0, 


(99) 1 


101 


, 119, 


0, 


(99) | 


55) 122 


119, 


124, 


*4 1 


124 


. 124, 


119, 


*4 i 


125 


119, 


0, 


1 


125 


, 119, 


0, 


-256 I 


65) 121 


91, 


124, 


l 1 


217 


, 126, 


119, 


5.Ko)i 


214 


126, 


119, 


(97) I 


120 


. 119, 


0, 


1 1 


365 


0, 


0, 


(0) | 


214 


, 126, 


119, 


(97) 1 


121 


92, 


119, 


27 I 


217 


, 119, 


92, 


-27 1 


125 


119, 


0, 


I 


125 


119, 


0, 


1 


211 


126, 


126, 


6(0) I 


123 


, 124, 


119, 


*777 1 


7D 340 


0, 


0, 


(0) | 


217 


126, 


124, 


4(0) 1 


203 


126, 


124, 


8(0) \ 


521 


124, 


91, 


I 


121 


124, 


119, 


i 


310 


0, 


0, 


(93) ! 


357 


0, 


0, 


(99) 1 
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(1704,5) fa ° b •—*"•- Dnt = O if negative 

Add with exp 26 <ie shift int.pt, to bottom of L), Exit 

I (1727) Store am 
am-s 

Add 1 to M27 if ams=s 
Add 2 to bl27 if am<s 
Restore am and exit 
(I714) Set +1 in A 
Divide by s and exit 
(1757) Store am 
Bring out s 
Divide by am and exit 
(1754) Extract V6 
R+ 

Add zero and standardize, i.e. shift down 
Restore V6 and exit [if result superstandard 

(1753) Add 12 to exponent 
(1763 joins) Store am 
Set in L 

Shift up one octal place and exit 
(I756) Store am 
Set s in A 
Store 

Recover am 
Store in s 
Reset s in A and exit 

(1772) Multiply a by s 

(1752 joins) Subtract 12 from exponent 

(1762 joins) Preserve exponent in B9I, Also set d20=l 

Set exponent =12 

Jump 

(1773) So* b92=l2 in exponent position 
Set B121 to point at B92 

(1473 joins) Standardize 

Store am 

s, standardized 

Store 

Bring back am 

Divide by s 

(I452 continued joins) Store ba (=bg2 =12 if 1773) 

Set into BII9 

(1755 joins) Set bll9 , =bli9-bl24+256 in exponent position 

Set original MI9 in BI24 

)Shift MI9 to integer position and subtract 256, 

)i.e, original bll9~bl24 in integer posn with sign propagated 

(1764,5 joins) FIXING ROUTINE . Preserve exp in Bgi, set d20=l 

Jump if MI9 <o"," i.e.' "shift up required, set marker in B126 

Jump to exit if bll9=0 

(Shift down) Negate and add 1 

Shift down one (ensures correct handling of superstandard nos. ) 

Jump to exit if WI9 now =0, i.e. one shift only was required 

(Shift up rejoins)) Set bll9=-27 if M.19 <-27 

)i,e, if out of range 
) Shift MI9 to exponent position 
) 

Jump if shift down 

SHIFT DP, set bll9 +vely in BI24, correcting for ffff at bottom 
(1752,62,72 cont join) Standardize i.e. shift up adjusting M24 
Jump if exponent now -ve. i,e, shifted too far 
Jump if exponent >0, i.e. more shift up reqd. Subtract 1 
If exp = 0(i.e. correctly shifted) recover original exp & exit 
SHIFT DOWN. Set MI9 (negative) in BI24 

Add \ with exponent zero, i.e. shift down correctly and add J 
Preserve l,s. J 

30.8.63 
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I 1700 Extracodes, Page 3 

33* » 0, 0, (93) I (Shift down cont) Remove | from top(no shifting) and clear 

344. 0, 0, (99) {Recover l.s. -§ 

521, 124, 91, } Recover original exponent and exit 

364, 0, 0, (0) | (Here if Ehift up beyond standard required) Shift up 

203, 126, 124, -1(0) [Cycle counting 

147, 91, 0, 6*6 |)Set AO by 'or-ing', 

121, 124, 91, |) recover original exponent 

5^3. 91, 0, 6*6 |) an d exit 

7) 237, 126, 0, 3(0) ! (1706,7) Jump if -ve 

234, 126, 0, 2.A(0) Uump if zero 

725, 0, o, (96) I If positive set +1 in A and exit 

734, 0, 126, -100.4 1Set -1 or in A if -ve or zero. Exit 

77> 350. 0, 0, 2(99) KI477 with 0.4 in B126) REMAINDER . Store quotient 

300, 0, o, (94) {Take integer part,= Q SAY 

7&>356, 0, 119, 1 (1776 joins with bl21=0) store Q 

343, 0, 0, (09) jx denominator (s) 

356, 0, 0, 4(99) I Store m f s,£ 

355. 0» 0, (0) \ Shift 1 to m )Porm a-Qs 
302, 0, o, 3(99) {Negate, add l.s £ , of numerator (a) ) (=R say) 
35o, 0, 0, 3(99) J Store 
334' °» 0. 4<99> i Bring back Q,s (m.s,|) 
302, 0, o, K99) |m.s.J of a-Q.s, 

310, 0, 0, 3(99) |Add l,s,£ of ditto 
21A, 126, 121, 9(0) fJump to exit if 1477 Ba=0 or 1776 
350, 0, 0, 4(99) J Store Rm 
234, 126, o, 7(0) Uump to exit if R=o 

1*3 » 0» 0, 3(99) tciear store line 

314. 0, 121, (99) |Read donominator, numerator, quotient or zero 

237, 121, 121, 0.4 {Change d21 if <0 ) Sot d21 of B12151 

314, 0, 0. 4(99) 1 Recover Rm ~ ) if remainder not 

237, 121, 121, 0.4 {Change d21 if <0 ) of required sign 

164, 126, 121, 0,4 {Skip if remainder wrong sign 

521, 0, O, lExit if remainder correct sign 

311, 0, 0, (99) J If remainder wrong sign, form R-s, =? a-(Q+l)s 

356. 0, 0, 4(99) 1 Store (R-s)m 
314, 0, o, (92) I Set +1 in Am 

357. O, O, 3(99) I Store (R-s)l 

320, 0, 119, lAdd 1 to Q (i.o. adjust ) 

344' °» °» 3<99> iRocovor (R-s)l in h 

356, 0, llg, o i Store adjusted Q 

714, 0, O, 4(99) (Recover (R-s)m and exit 

92) *0021 / 1 Floating-point +1 

80) 330, 0, 0, (94) |(1476,B126 odd) FIXED PT. DIVISION Take int.pt of am (oxp=26) 
124, I24, 0, *776 {Subtract 2 from exponent correcting for 1(0) and 19(0) 

364» °> 0, (0) {Shift up a so that binary point is 3 places from foot of h 

81) 121, 93, 0, -2 I(1474»5 join) Set mask 

123, 91, 124, *746i {Set b9l =25 - exponent, in oxponont position, plus *0007 
236, 120, 126, 5 {Jump if a>0, preserving marker in BI26 

356, 0, 0, (99) {OTHERWISE NEGATE A. I.e. store m 

355» 0, O, (0) 1 shift up 1 

302, 0, 0, (93) i negate 

33 1 ' °» °» (99) 1 and add back m negatively 

124, 93, 0, 0.1*4 I also set marks in B93 (positive, odd) 
375* 0» 1*9» O {Divido by s, quotient in L remainder in M 
121, 92, 0, -4 {Set mask 

101, 94, 119, o Im.s.l of s ) Set b94=0 if 

^7> 94» °« *00077 {mantissa part except sign digit) mantissa of s =0 or -1.0, 

H7t 94» l*-9* 0«4 1*or* with rest of mantissa ) set bo^. #> otherwise 

214, l2o, 94, (21) {Jump if mantissa =0 or -1.0 to sot Do 

211, 120, 126, 7(0) {Jump if 1474,5 

356, 6, 0, (99) K1476 continues) Store remainder (R) 

357. 0, 0, K99) {Store quotient Q 

364, 0, 0, (o) {Shift up Q one octal place 

107, 91, 0, K99) J3 m.s. bits of Q (mantissa), and reduco exp part to 
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(21) 

(99> 
O 

3(0) 

(96) 

6*6 

6*6 

(21) 
2(0) 
(98) 

5<o) 

(99> 


o 

(99) 

17631 
(98) 



I (1476 continued) Jump for Do if Q too x— s - 

I Recover R, leavi^jj «i Shifted v.j»> in L 

1(1474,5) Store Q, clearing h 

(Jump if R>o 

I) If R<o, add 1 (fixed point) 

1 ) to adjust for error due to 375 

Icioar Be. Set bgz>o and reset Be if [xa|>|xsf 

DJump to DO if IxaMxsj; otherwise add Qs digit to 093 

JH.e.set sign of bgj to /of Q and a 

f)Nogate R if a<0 Ti.e. to not sign of final Q 

I) giving true R 

[Jump if final Q>0 

[Store true R, 

])sot -Q as final Q in C(ba) 

'> 

land roGot true R in A 

[Reset exponent for R and exit 
[Cause DO and monitor exit 



(t>)=*4004400 

[ TAN 

I If x = J7c( n +e), whore -^ < 9 <§ 

jthen tan x = tan <£*e)= p?9)/(l~e.e) if n evon 

1 = -cot<4we)« -(i-e,9)/p(e) if n odd 



363, o, 0, 
121, 91, 0, 
247, 126, 124, 

|20, 0, 0, 

|3°> °» o, 

IB6, o, 0, 

355. o, o, 
p7, 91, 0, 
|oo, 0, o, 

32) $56, o, o, 
$42, 0, o, 

121, 92, 0, 

356, 0, 0, 
330. 0, o, 
346, o, o, 
300, 0, 92, 
372, o, 0, 
203, 126, 92, 
300, 0, 0, 
3&3» o, o, 
210, 126, 91, 
35^, o, o, 
325» 0, o, 

^3> 774> 0, 91, 

85) * 0014/0 

S6) *o32/o 

87) *ooi/o 

88) *ooo5o574/*6o333447 
B9) *00214441/*766521Q2 

*ooi56n6/*o3 120022 
*77767277/*6366i37o 
*773l2i42/*24o7o7i7 
*77ii645i/*7547i372 



(88) (Multiply x by 2/% 
0,1 I Set marker 

(82) [Jump if small (<l/8) 

(85) [Add -J 

(86) fFix", i.e. int.pt. in M, frac.pt. in L 
(99> [Store int.pt.,= n-1 
(0) [Sot frao.pt. in M 

0.4(99) [Sot b9l= o.l if n-1 odd, otherwise 
(85) I Add -| to frac.pt. Result = 6 
(99) [Store e 
(99) I Form 9,9 
3 [Sot counter 
K99) I Store 9.9 

(87) |Add -1. Result = -(1-9.9) 
2(99) [Store -(1-e.e). Clear A 
K89) [Add coefficient ) Form polynomial 
1(99) [Multiply by 9.9 ) in 9.9 
-2(0) ICycle ) 

(89) Hdd Oth coefficient, 
(99) [Multiply by -9.9 Result = -p(9) 

(83) [Jump if n oven 
1(99) [If n odd, store -p(9) in 1(99) 
2(99) land set+(l-e.e) in A 
1.7<99> fDivide by c(l<99» extra) if n odd, result m <i-e.e)/-p{e) 

1-8 I by c(2(99)) if n odd, result = -p(9)/-(l-9.9). Exit 

[0 with exp 13 

1-1 

12/TC 

I) 

f) 

I) 

1) 

1) 



Coefficients for p(e) 
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